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PREFACE 



This manual describes the COBOL Version 5.3 lan- 
guage, which operates under control of the following 
operating systems: 

NOS 2 for the CONTROL DATA® CYBER 180 Computer 
Systems; CYBER 170 Computer Systems; CYBER 70 
Computer System models 71, 72, 73, 74; and 6000 
Computer Systems 

NOS/BE 1 for the CDC® CYBER 180 Computer 
Systems, CYBER 170 Computer Systems, CYBER 70 
Computer System models 71, 72, 73, 74; and 6000 
Computer Systems 

COBOL 5 is designed to be a superset of the 
language specified in American National Standard 
X 3.23-1974, COBOL. Extensions to the standard 
language are indicated in this manual by shading. 

I The COBOL compiler conforms fully to the ANSI 
Standards. A copy of the Federal Compiler Testing 
Center Validation Summary Reports can be obtained 
from: 

National Technical Information Services 

U.S. Department of Commerce 

5285 Port Royal Road 

Springfield, Virginia 22161 

U.S.A. 



This manual is written for a programmer familiar 
with a COBOL language and the operating system 
under which the COBOL 5 compiler is operatiag. 



Several facilities are available within the 
structure of the COBOL 5 language. The following 
facilities are described in individual sections of 
this reference manual; . Communication, Debugging, 
Library, Memory Management, Report Writer, and 
Sort/Merge. CDC COBOL 5 also interfaces with other 
CDC software products. These products are dis- 
cussed in section 11, Product Interfaces. For a 
complete description of each product, see the 
appropriate reference manual. 



The NOS System Information Manual is an online 
manual that includes brief descriptions of all NOS 
and NOS product manuals. To access this manual, 
log in to NOS and enter the command EXPLAIN. 



COBOL users can find additional pertinent 
information in the Control Data Corporation 
publications listed below. These publications are 
listed alphabetically in groupings that indicate 
relative importance to readers of this manual. 
Applicable operating systems are also indicated. 



The following manuals are of primary interest: 

Publication 

COBOL Version 5 Reference Manual online 

COBOL Version 5 Diagnostic Handbook 

COBOL Version 5 Instant Manual 

COBOL Version 5 Report Writer User's Guide 

COBOL Version 5 Beginning User's Guide 

COBOL Version 5 Beginning User's Guide, online 

COBOL Version 5 User's Guide 

NOS Version 2 Reference Set, Volume 3 System Commands 

NOS/BE Version 1 Reference Manual 



Publication 
Number 


NOS 2 


NOS/BE 1 


L60497 100 


X 




60482500 


X 


X 


60497300 


X 


X 


60496900 


X 


X 


60497400 


X 




L60497400 


X 




60497200 


X 


X 


60459680 


X 




60493800 




X 



60497100 N 



vii 



The following manuals are of secondary Interest: 



Publication 

CID Version 1 Reference Manual, online 

Common Memory Manager Version 1 Reference Manual 

CYBER Interactive Debug Guide for Users of COBOL 

CYBER Interactive Debug Reference Manual 

CYBER Loader Version 1 Reference Manual 

CYBER Loader Version 1 User Guide 

CYBER Record Manager Advanced Access Methods 
Version 2 Reference Manual 

CYBER Record Manager Basic Access Methods 
Version 1,5 Reference Manual 

DMS-170 CYBER Database Control System Version 2 
Application Programming Reference Manual 

FORTRAN Version 5 Reference Manual 

FORTRAN Version 5 Reference Manual, online 

Information Management Facility Version 2 
Reference Manual 

Message Control System Version 1 Reference Manual 

Network Access Method Version 1 Host Application 
Programming Reference Manual 

Network Products TAF Version 1 Reference Manual 

NOS/BE Version 1 Diagnostic Index 

Sort/Merge 5 Reference Manual 

Sort/Merge 5 Reference Manual, online 

Update Version 1 Reference Manual 

8-Bit Subroutines Reference Manual 



Publication 






Number 


NOS 2 


NOS/BE 1 


L60497100 


X 




60499200 


X 


X 


60484120 


X 


X 


60481400 


X 




60429800 


X 


X 


60482300 


X 


X 


60499300 


X 


X 


60495700 


X 


X 


60485300 


X 


X 


60481300 


X 


X 


L60481300 


X 




60484600 


X 




60480300 


X 




60499500 


X 




60459500 


X 




60456490 




X 


60484800 


X 


X 


L60484800 


X 




60449900 


X 


X 


60495500 


X 


X 



Sites within the United States can order CDC manuals from Control Data 
Corporation, Literature and Distribution Services, 308 North Dale Street, 
St. Paul, Minnesota 55103. 

Other sites can order CDC manuals by contacting the local country sales 
office. 



This product is Intended for use only as described in this 
document. Control Data cannot be responsible for the proper 
functioning of undescribed features or parameters. 
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NOTATIONS 



NOTATION USED IN FORMATS 



UPPERCASE 



UNDERLINED 



lowercase 



[ ] 



{ } 



Uppercase words are COBOL reserved 
words. They must be spelled cor- 
rectly including any hyphens; 
they cannot be used in a source 
program except as specified. 



Underlined words 
when the format 
appear Is used. 



are required 
in which they 



Lowercase words are generic terms 
which represent the words or sym- 
bols supplied by the programmer. 
When generic terms are repeated 
in a format, a number or letter 
is appended to the term for iden- 
tification in the subsequent 
discussion. 

Brackets indicate the optional 
portion of a format. All of the 
format within the brackets can be 
omitted or included at programmer 
option. If items are stacked 
vertically within brackets, only 
one of the stacked items can be 
used. 

Braces indicate the portion of a 
format in which only one of the 
vertically stacked items can be 
used. If one of the options con- 
tains only reserved words that 
are not keywords, that option is 
the default option. Braces are 
also used to enclose the portion 
of a required entry that can be 
repeated. 

Ellipses indicate a repetition 
indicator. Portion of a format 
enclosed in the immediately pre- 
ceding braces or brackets can be 
repeated at prograiraner option. 



Punctuation symbols shown within the formats are 
required unless enclosed in brackets or specifi- 
cally noted as optional. In general, commas and 
semicolons are optional; periods are required to 
terminate paragraphs, sentences, and Data Division 
entries. At least one space must follow all 
punctuation symbols. 



NOTATION USED IN EXAMPLES 



t 



+ or 



A 


B 


C 


D 



An up arrow indicates the posi- 
tion of an assumed decimal point 
in an item. 



A plus or minus sign above a 
numeric character indicates an 
operational sign is stored in 
combination with the numeric 
character. 



Character positions in storage 
are shown by boxes. An empty box 
means an unpredictable result. 



The delta 
(blank). 



indicates 



space 



SHADING USED IN MANUAL 

Control Data extensions to the language described 
in American National Standard X3. 23-1 974, COBOL, 
are indicated by shading. Shading is also used Lo 
indicite processing that is diiferenl from that 
specif; I'd in the standard. Language and processing 
that .ire implementor-def ined hut within the st.nul- 
ard iire not shaded. Further, references, tn Control 
Diila features, such us the direct ti If organiza- 
tion, are not shaded unless that feature is the 
topic under discussion. 
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COBOL SOURCE PROGRAM 



A COBOL program Is composed of a series of lines 
that conform to the structure and syntax of the 
COBOL language. The source program is processed by 
the COBOL 5 compiler and changed into a set of 
tables that can be loaded by the operating system 
loader and that can be executed by hardware 
instructions. 

When the compiler executes in response to a control 
statement entered through a batch job or inter- 
active terminal, it performs the following 
functions: 

Reads the file containing the source program. 
INPUT is assumed to be the file name in the 
absence of a parameter specifying another name. 

Checks the source program for errors in program 
structure and language syntax. Writes messages 
that indicate any errors and prints these 
messages on the line printer or displays them 
at the terminal. 

Depending on parameters specified on the 
compiler call, writes a copy of the source 
program to a print or display file. Writes a 
data map and a data cross reference map to this 
file to summarize data item descriptions and 
references within the program. OUTPUT is 
assumed to be the output file name in the 
absence of a parameter specifying another name. 

Compiles the source lines into executable code, 
unless binary code generation is suppressed by 
a compiler call parameter. Writes the exe- 
cutable instructions to a file in a format 
suitable for loading and executing. LGO Is 
assumed to be the name of the file to hold the 
compiled program in the absence of a parameter 
specifying another name. 



Once the source program is compiled, It can be 
loaded and executed by a control statement that 
names the file of executable instructions. 
Section 12, Compiler Call and Execution, describes 
other functions that can be performed during 
compilation and execution. 

During execution, the compiled program makes use of 
execution-time routines that are part of the system 
library. Files referenced in the program are 
opened, read, written, rewritten, and closed 
through the CDC CYBER Record Manager facility 
common to several products running under the NOS 
and NOS/BE operating systems. Depending on the 
source program statements, Sort/Merge routines. 
Report Writer routines, and CDC CYBER Database 
Control System routines might also be used during 
execution. 

The Job in which the program executes Is 
responsible for making data files available before 
the program begins execution and for properly 



disposing of output files after execution ends. If 
the compilation involves information on a library, 
the job is also responsible for making the library 
file available before compilation. 

CDC offers guidelines for the use of the software 
described in this manual. These guidelines appear 
in appendix F. Before using the software described 
in this manual, the reader is strongly urged to 
review the content of this appendix. The guide- 
lines recommend use of this software in a manner 
that reduces the effort required to migrate 
application programs to future hardware or software 
systems. 



SOURCE PROGRAM FORMAT 

A source program consists of a series of lines with 
a particular syntax and structure. 



SOURCE LINES 

Each line in the source program can be represented 
as an 80-column punch card or as a card image 
within the range of one through 100 characters. 
The maximum number of lines that can be specified 
in a program is 32767. Within a line, columns 
define areas of varying significance: 

Columns 73 through 100 

Optional program identification. Any 
character in the computer character set 
listed in appendix A is allowed in these 
columns. Characters in these columns 
appear on the source listing for the 



not otherwise processed 



program, but are 
by the compiler. 

Columns 1 through 6 



Si-'qi-ifMci: r.umber for the s.^urcc line. '^fg'- 
use of the sequence number depends on the 
V?Q p.-iraraeter la the compiler call state- 
mi'" r. Wl'.ei the PSQ parameter is specified, 
the ."'jL Li)W: ng rules apply: 

Tie sequence lucber can conlain only 
dibits .iiid spaces. Spaces nru ignored 
in a sequence VLCj-d; huwc-i/er, the field 
I'lnnot be all spaces. Characters other 
tnan a digit or i spacs cause -j 
di.''gnO'!;LC to bo Issuud. If a Line 
with b.n. Illegal sequence number tollows 
1 line «i;h rf legal sequence number, 
Lhj last Legal sequence number is 
useii. I!i no lega' sequence numbers 
fe-ii^t, the normal oompf.er generated 
li.iea are assigr.ijd ias if PSQ were 
omitted) . 

Everv line must he numliered. 
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All diagnostics at execution time .ind 
compile tine refer to suqiicnco niunbcr.';. 

The numbers arc not required to be in 
sequence; however, for case in locating 
lines referenced in dl.igiiastic; , the 
numbers should be sequenced. 

A sequence number cannot exceed 63333 
and cannot equal zero or a11 spaces. 
If one of these errurts ncinrs, a 
diagnostic is issued and the sequence 
number is determined as indicated in 
the preceding paragraph's. 

IE the PSQ parameter is not specified, the 
sequence number is optional and can conLa in 
any character in the computer L-iiaracrer 
Set. The compiler does not process these 
characters. 

Columns 7 through 72 

Language statements that are processed by 
the compiler to produce executable code. 
Only COBOL language characters listed in 
table 1-1 are allowed in these columns, 
except when the explanation of a language 
element specifically allows any character 
from the computer character set. These 
columns are divided into three areas : 

7 Indicator area 

8-11 Area A 

12-72 Area B 

The indicator area can contain only five characters 
that identify the type of line in which it occurs: 



TABLE 1-1. COBOL LANGUAGE CHARACTERS 



space 

/ 
D 



Normal line to be compiled 

Continuation line; explained below 

Comment line; explained below 

Comment line; explained below 

Debugging line; explained in Debugging 
Aids, section 10 



Area A is used to begin the following language 
elements; 

Division header 
Section header 
Paragraph header 
Paragraph-name 

Level 01 and level 77 Data Description entries 
Level indicator 

Keywords DECLARATIVES and END DECLARATIVES 
Area B is the starting area for: 

Record-name or item name and record or item 
description 



Character 


Meaning 


0-9 


Digit 




A-Z 


Letter 

Space (blank) 




+ 


Plus sign 




- 


Minus sign (hyphen) 




* 


Asterisk 




/ 


Stroke (virgule, slash) 




= 


Equal sign 




$ 


Currency sign 




y 


Comma 
Semicolon 




• 


Period (decimal point, full 


stop) 


II 


Quotation mark 




( 


Left parenthesis 




) 


Right parenthesis 




> 


Greater than symbol 




< 


Less than symbol 
Colon 





Statements and clauses 

Continuation of statements and clauses 

Statements that follow a paragraph-name can start 
in area A of the same line as the paragraph-name 
when the paragraph-name is limited to a single 
chiracttr. Language elements that should begin in 
j.-ea B are accepted wlje:! they begin in area A. 

Figure 1-1 summarizes source program line format. 



Continuation Lines 

Any sentence, entry, phrase, or clause can be 
continued in area B of the immediately following 
line. Under two circumstances the continuation 
line must contain a hyphen in the indicator area, 
column 7 , to indicate that the line is a 
continuation of the previous line. 

A word or a numeric literal is split between 
lines. The continuation line must have a 
hyphen in the indicator area, a blank area A, 
and text beginning in area B. The first 
nonblank character in area B is presumed to 
immediately follow the last nonblank character 
of the previous line. 
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COBOL CODING FORM 


MIME: 


MCE or 


CONTROI 


. DATA CORPORATION 


date: 


'""^ ^^» - 


SEQ. NO. 1 


« ■ snTEKns Program identification 1 
B ,11 11. .» . . M. .. .M. ...... . .». ...»..."....«.... ■■*■■■ ■"! 










1 








1 










columns 1-6 
























_ 












„ 










Indicator area column 


7: comment code (asterlsl< or slash) 






, . . . . . . 
















continuation code (hyphen) 












debug code D 
























. 










Area A columns 8-1 1 for start of Division header, Section | 










....__ H 










header, paragraph-name. Declaratives fieaaer, i-u, bu, hu, 










CD (NOS only), comment-entry, Ul, // entries. 










. . Level-number entries can start in area A or area B 








. , . 




A 










—7— Area B and continuation texL aiea coiuiinib iz-/^ -j 












_ 















- 








. — 


—7— Comment line lexl area — ■_] 










, 












































Lines can be broken at any convenient point; spaces can remain at the end ot the line. ^^ 






Space is presumed at end of line without hyphen in indie 




. . . 






ator area. 
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Figure 1-1. Source Program Line Format 



A nonnumeric v^x;^'%S?^i||t^' " literal is split 
between lines. The continuation line must have 
a hyphen in the indicator area, a blank area A, 
and the first nonblank character in area B must 
be a quotation mark. All spaces at the end of 
the continued line through column 72 are 
considered part of the literal and are presumed 
to immediately precede the first character 
after the quotation mark in the continuation 
line. 

The hyphen should not be used in the indicator area 
except under these two circumstances. If a hyphen 
does not appear in the indicator area, the last 
nonblank character in the preceding line is 
presumed to be followed by a space. 



Comment Lines 

A comment line has an asterisk or slash In the 
indicator area. A comment line can appear anywhere 
In a source program after the Identification 
Division header. Any character in the computer 
character set can appear in area A and area B. 
Comment lines are listed in the source listing of 
the program, but are not otherwise processed by the 
compiler. 



The two characters that indicate a comment line 
differ as follows: 

* Comment is listed as it Is encoun- 
tered. Must be used when a comment 
line appears in the source program. 



Causes a page eject to occur for the 
source listing file before the 
comment line is listed. Can be used 
for the first line of a group of 
successive comment lines. 



The LIST/NOLIST commands, which control the 
printing of source program and object listings, are 
specified on comment lines. This special usage of 
comment lines is described in section 12. 



Blank Lines 

A blank line is one that is blank in columns 7 

through 72. A blank line can appear anywhere in 

the source program, except immediately preceding a 
contlauatlon line. 
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PROGRAM FORMAT 

A COBOL program has four divisions: IDENTIFICATION 
DIVISION, ENVIRONMENT DIVISION, DATA DIVISION, and 
PROCEDURE DIVISION. The Identification and Proce- 
dure Divisions are required. ANSI requires all 
four divisions and they must appear in the order 
specified above. If only two divisions are used 
and the ANSI parameter is specified on the compiler 
call, a diagnostic will be issued. The general 
function of each division is: 

Identification Division 

Names the program and documents the author 
and date. 

Environment Division 

Names each file referenced in the program 
and equates it to a file known to the 
operating system or to a console or ter- 
minal. Establishes checkpoint conditions, 
collating sequence, debugging mode, and 
subschema name. Documents the computer 
used to compile and execute the program. 
Files contained in a data base described by 
a subschema might be described here. Refer 
I to section 16, Subschema Facility. 

Data Division 

Describes in detail each file and each data 
item to be used In the program, including 
the data items used for the Message Control 
System (MCS) under NOS. Items contained in 
a data base described by a subschema are 
not described here. 

Procedure Division 

Specifies processing to be performed 
including file input and output, arithmetic 
operations, sorting, report generation, and 
procedures to execute only under specific 
conditions. 

Each division contains source statements made up of 
language elements described below. Within each 
division, most source statements are optional, 
depending on the needs of the program. Each 
division is described in detail in a separate 
section of this manual. 

Figure 1-2 summarizes source program structure, 
showing the sections or paragraphs within each 
division and the order in which they must appear. 



LANGUAGE STRUCTURE 

The COBOL language is composed of the 51 characters 
listed in table 1-1. Additional characters in the 
computer character set listed in appendix A can be 
used in a program when they are a part of a non- 
numeric literal, comment-entry, or comment line. 

Individual characters of the language are concate- 
nated to form character-strings and separators. 
Concatenation of character-strings and separators 
forms the text of a source program. 

Figure 1-3 shows the various types of separators 
and character-strings in a source program. Sep- 
arators can be concatenated with other separators 



IDENTIFICATION DIVISION. 

program-id paragraph followed by predefined 
paragraphs and comment entries 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 

predefined paragraphs and entries 
INPUT-OUTPUT SECTION. 

predefined paragraphs and entries 

DATA DIVISION. 
FILE SECTION. 

predefined level indicator entries and 

record description entries 
COMIVION-STORAGE SECTION. 

record description entries 
WORKING-STORAGE SECTION. 

record description entries 
SECONDARY-STORAGE SECTION. 

record description entries 
LINKAGE SECTION. 

record description entries 
COMMUNICATION SECTION. 

communication description entries 
REPORT SECTION. 

report description entries 

PROCEDURE DIVISION. 
DECLARATIVES. 

declarative statements, procedures 
END DECLARATIVES. 

statements in paragraphs or sections 



Figure 1-2. Source Program Overview 



or a character-string; a character-string must be 
concatenated with separators. The words listed 
under the box titled Character-Strings In figure 1-3 
present the terminology used throughout this 
manual. The rules for forming COBOL words are also 
summarized in this figure. 

A discussion of the separators and character- 
strings of figure 1-3 follows. 



SEPARATORS 

A separator is a string of one or more of the 
punctuation characters , ; -t V . " ( ) == and space. 
Separators must appear in the source program 
in specific places. Not all separators are 
Interchangeable . 

Punctuation characters can have uses other than as 
separators. These characters do not function as 
separators when they appear as part of; 

PICTURE clause character-string 

Nonnimierlc literal 

Numeric literal 



The punctuation characters have the following 
functions as separators; 

space Separates language elements. Can be 
concatenated with other separators 
except as otherwise noted. 
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CHARACTERS 



Separators 



Character-Strings 



■ Space 

- Comma followed by space 

. Semicolon followed by space 

■ Period followed by space 

■ Left parenthesis 

- Right parenthesis 
. Quotation marl< 

- Pseudo-text delimiter 

■ Colon followed by space 



Comment- 
Entries 



Picture 
Character- 
Strings 



Literals 



COBOL 
Words 



Nonnumeric 

Numeric 

Figurative constant 
values 



User- 
Defined 
Words . 



System 
Names 



Reserved 
Words 



^ Computer-name 

— Implementor-name* 

— Input output- technique^ 

— Input unit' 

— Language name^ 

— Mode name^ 



— Alphabet-name 

— Cd-name^ 

— Condition-name^ 
Data-name® 
File-name 

— Index-name 

Level-number®''" 

— Library-name 

— Mnemonic-name 
Paragraph-name" 

— Program-name 



— Record-name® 

— Report-name 

— Routine-name 

— Section-name" 
Segment-number®''" 

I — Text-name 

' 1 through 30 characters composed of A through Z, through 9, or -; however the character - 
character, except as noted in 5. 

^Must contain at least one alphabetic character except as noted in 10 and 11. Must be unique 

^Can only be used under NOS. 

^Must begin with a letter. 

®See text for syntax. 

®Words can be duplicated among these groups if qualified for unique reference. 

'Documentary only. 

^Particular names required. 

®Need not be unique. 

'"Digits only. 

'''Need not contain alphabetic characters. 



. Keywords 

■ Optional words^ 
• Connectives 
-Special registers 

■ Figurative constants 

■ Special -character 

vi/ords^ 



cannot be first or last 
except as noted in 6. 



Figure 1-3. Language Structure 
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space Terminates headers, entries, 
sentences as defined by formats. 



and 



, space Separates clauses and statements 
for readability. Optional, and 
restricted to the usage Indicated in 
the formats. Cannot immediately 
precede the first clause of an entry 
or paragraph. Interchangeable with 
; space. 

; space Separates clauses and statements 
for readability. Optional, and 
restricted to the usage indicated in 
the formats. Cannot iimnediately 
precede the first clause of an entry 
or paragraph. Interchangeable with 
, space. 

: space Delimits leftmost cnaracter positioo 
and length of refercnco modified ILum. 

( and ) Delimits subscripts, indexes, arith- 
metic expressions, or conditions. 
Must appear in balanced pairs. 

" Delimits nonnumerlc literal. Can 
appear only in balanced pairs except 
when the literal is continued on 
subsequent lines. Opening quotation 
mark must be immediately preceded by 
a space or left parenthesis; closing 
quotation mark must be immediately 
followed by a separator space, comma, 
semicolon, period, or right parenthe- 
'•ib. Also used to dclJmlt buolOiin 
literals on the right. 

== Delimits pseudo-text in COPY and 

^^^^^B statements. Can appear only 
Inbalanced pairs. Opening delimiter 
must be immediately preceded by a 
space; closing delimiter must be 
Immediately followed by a separator 
space, comma, semicolon, or period. 

B" Delimits boojerin 1 iturais on the 
loft. This separator must be 
immediately preceded by a bpace or 
left pari-iithesis. The booJuan 
1 LLer.il is delimited on the right by 
a closing quotdtioT mark. The 
opening iind closing quoLiitiori murks 
must appear in baUinL'tsd piirt, except 
when the literal Is tii-it inui-d on 
subbcquent lines. 



A character used In a source program as a quotation 
mark might appear on an output device as a differ- 
ent character, depending on the device and the 
character .set. In particular, it might appear as / 
on a print file. 



When the QUO'CK 13 APOSTROPHE clause is sped f= Led in 
the SPKCIAL-NAMES paragraph of the i^nvironmenL 
Division, the charactL-r apostrophe assimif? tlio roll' 
oE the character quotALiun mark. This Intarch.inge 
of chtiracter functions i,dn alio be seli'ded b> the 
APO parameter on the compiler call. 



COBOL WORDS 

A COBOL word Is a character-string of not more than 
30 characters which forms a user-defined word, a 
system-name, or a reserved word. 



User-Defined Words 

A user-defined word is a COBOL word that must be 
supplied by the programmer to satisfy the format of 
a clause or statement. These words are grouped 
Into the sets listed In figure 1-3. Condition- 
name, data-name, and record-name belong to the same 
set. All user-defined words, except segment-number 
and level-number, can belong to one and only one 
set. 

Except for level-nimiber and segment-number, all 
user-defined words within a given set must be 
unique or be capable of being referenced uniquely. 
Uniqueness can be achieved by specifying a 
character-string that Is not identical to any other 
character-string, by specifying a REDEFINES 
reference, or by qualifying the character-string 
each time it is referenced. Uniqueness of 
reference is discussed in section 5, Procedure 
Division. 

User-defined words are formed by the letters A 
through Z, the digits through 9, and the hyphen. 
Minimum size is one character; maximum size is 30 
characters. The hyphen cannot be the first or last 
character in the string. 

At least one letter A through Z must appear in 
user-defined words, except for those in the sets: 
paragraph-name, section-name, level-number, and 
segment-number. Level-number and segment-number 
must be one or two digits. 



System-Names 

A system-name Is a COBOL word that is used to 
communicate with the operating system. These words 
are grouped Into the six sets listed in figure 1-3; 
a given system-name can belong to one and only one 
set. 

System-names are formed the same as user-defined 
words. Implementor-names , language-names, and 
mode-names, however, are subject to further 
restrictions, as discussed with clauses In which 
these words appear. 



Reserved Words 

A reserved word is a COBOL word listed in 
appendix D that can be used In COBOL source 
programs in a given context. Reserved words must 
not appear in the program as user-defined words or 
system-names. Reserved words can be used only as 
specified in the formats. 



Six sets of reserved words exist, 
figure 1-3. 



as shown in 
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Keywords 



LINAGE-COUNTER 



A keyword is a word whose presence is required when 
the format in which the word appears is used in a 
source program. Within each format, such words are 
indicated by uppercase letters and underlining. 

Keywords can be required words in statements and 
formats, and words with specific functional meaning 
such as SECTION or NEGATIVE. 



Optional Words 

An optional word is a word whose presence is not 
required when the format in which the word appears 
is used in a source program. The presence of an 
optional word often adds to the understanding of 
the purpose of the format, but does not affect the 
generation of the executable code. Within each 
format, such words are indicated by uppercase 
letters without underlining. 



Connectives 

A connective is a word, or a separator comma, or a 
separator semicolon. Three types of connectives 
are: 

Qualifier connectives that associate a 
data-name, a condition-name, a text-name, or a 
paragraph-name with its qualifier. OF and IN 
are the only two qualifier connectives. 

Series connectives that link two or more 
consecutive operands. The separator comma and 
separator semicolon are the only two series 
connectives. 

Logical connectives that form conditions. AND 
and OR are the only two logical connectives. 



Special Registers 

A special register is a word whose name references 
a compiler-generated storage area. The primary use 
of a special register is storage of information 
produced in conjunction with a particular COBOL 
feature. These registers can be referenced in a 
source program, but must not be defined in the 
program. Each has an implicit description. 



LINE-COUNTER 

Exists only when the Report Writer facility 
is used. One special register exists for 
each report. See section 6, Report Writer 
Facility. 

PAGE-COUNTER 

Exists only when the Report Writer facility 
is used. One special register exists for 
each report. See section 6, Report Writer 
Facility. 

DEBUG-ITEM 

Exists only when the Debugging facility is 
used. Only one special register exists for 
the program. See section 10, Debugging 
Aids. 



Exists for each file in which a LINAGE 
clause appears in the file FD entry. See 
the LINAGE clause in the File Description 
entry discussion of section 4. 

HASHED-VALUE 

Applicable only when files with direct 
organization are referenced in a USE FOR 
HASHING declarative. Must be set to a 
randomized (that is, hashed) value of a key 
for a particular record to be accessed. 
See the direct file organization discussion 
in section 3 and the USE statement in 
section 5. Only one special register 
exists for all direct files. 



Figurative Const ants 

Figurative constant values are generated by the 
compiler and referenced in a program by a reserved 
word. These words must not be bounded by quotation 
marks . 

The singular and plural forms are equivalent and 
can be used Interchangeably. The figurative 
constants and their meanings are shown in table 1-2. 

A figurative constant can represent more than one 
character. The length of the string depends on the 
context: 

In a DISPLAY, STRING, STOP, or UNSTRING state- 
ment, a reference to a figurative constant 
represents a single character. 

In either a VALUE clause or in a statement in 
which the figurative constant Is associated 
with a data item, a figurative constant 
character-string is repeated until the size of 
the string equals the size in characters of the 
data item. The repetition is Independent of 
any JUSTIFIED clause associated with the data 
Item. 



Special-Charact er Words 

A special-character word is an arithmetic operator 
or a relation character. 

Arithmetic operators indicate an operation to be 
performed. 



+ 


Addition 


- 


Subtraction 


* 


Multiplication 


/ 


Division 


** 


Exponentiation 


Relation 


characters indicate 


tested. 




> 


Greater than 


< 


Less than 


= 


Equal to 



relation to be 
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TABLE 1-2. FIGURATIVE CONSTANTS 



Figurative Constant 



ZERO 

ZEROS 

ZEROES 

SPACE 
SPACES 

HIGH-VALUE 
HIGH-VALUES 

LOW-VALUE 
LOW-VALUES 

QUOTE 
QUOTES 



ALL literal 



Meaning 



Depending on the context, represents the numeric value or one or more 
characters 0. 



Represents the character space, which is also known as a blank. 



Represents the character that has the highest ordinal position in the program 
collating sequence. 

Represents the character that has the lowest ordinal position in the program 
collating sequence. 

Represents the character ". This figurative constant cannot be used in plAce 

of a quotation mark to specify nonnumerlc or boolean literals. The default 

character " can be changed to the character ' by specifying the QUOTE TS 
APOSTROPHE clause in the SPECIAL-NAMES paragraph. 

Represents the string of characters comprising the literal. Literal must be 
either a nonnumeric literal or a figurative constant other than ALL literal. 
The word ALL is redundant in the form ALL figurative constant. 



Within each format, special-character words are 
required when such portions of the formats are used. 



LITERALS 

A literal is a character-string whose value is 
Implied either by an ordered set of characters of 
which the literal is composed or by a reserved word 
referencing a figurative constant. The three types 
of literals are numeric, nonnvraieric, and boolean. 
Nonnumeric literals are enclosed in quotation 
marks. Boolean literals are enclosed in quotation 
marks and preceded by the L-huracLer B before the 
opening quotation mark. Any character-string 
enclosed in quotation marks not preceded by the 
character B (including strings that conform to 
numeric literal or reserved word formats) is a 
nonnumeric literal. 



Boolean Literals 

A boolean literal is a character-string deli.mLt£;d 
on the left by the separator B followed by a 
quotaLlon mark, and delimited on the right by a 
quotation mark. The character-string consists only 
of tlie boolean clwracters or 1. Tlie value of a 
boolean literal is the string of boolean characters 
Itself. All boolean literals are of tlm category 
boolean. 

Examples of boolean literals are: 

B"0011010" 



B" 11 11 1001" 

Produces the 8-character boolean value 
UUIOOI. 



Numeric Literals 

A numeric literal is a character-string that 
represents the value of an algebraic quantity. 
Every numeric literal is category numeric, as 
discussed with the PICTURE clause. Numeric 
literals are specified In standard or, .scientific 
notation. (Scientific notation is also known as 
external floating point notation.) 

In standard notation, a numeric literal Is formed 
of at least one and no more than 18 digits, 
through 9, and optionally, one sign character 
and/ or one decimal point. 

The sign character is the character + or the 
character -. It must be the leftmost character of 
the literal. When the sign character is omitted, 
the literal is positive. 

The decimal point is the character period, except 
when the DECIMAL-POINT IS COMMA clause is speci- 
fied. It can appear anywhere in the literal except 
as the rightmost character. When the decimal point 
is omitted, the literal is an integer. 

Some examples of numeric literals in standard 
notation are : 



Produces the 7-character boolean value 
OOllOiO. 



B"110010101" 

Produces the 
110010101. 



9-charactcr boolean value 



567 
+567 
-5.67 
+.567 
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In scientific notation, a numeric literal is formed 
of the following elements. 

At least two and no more than 18 digits 
through 9 

The letter E 

One decimal point 

Zero, one, or two sign characters 

Notation is: 

[sign] mantissa E [sign] exponent 

The value of the literal Is tlie product of the 
mantissa times ten raised to the power given by the 
exponent. For example: 

3.E2 represents 3. * 102 

The sign character can be the char-icter + or the 
character -. It must be the leftmost character ot 
the mantissa and/or exponent. When the sign 
character is omitted, the corresponding mantissa or 
exponent is positive. 

The mantissa can he one through 14 digits plus a 
required decimal point. The decimal point can 
appear anywhere in the mantissa, including the 
rightmost or leftmost position. 

The exponent can be one through four digits, 
although the largest values that can he used are 
expressed through throe digits, A zero exponent 
must be written as a string of one through four 
zeros. 

The range of values that can be specified in 
scientific notation is .3131 5130625140E-293 through 
. 12650140831 706E+323; thus the number is legal if 
the exponent is between -279 and +308, regardless 
of the position of the decimal point. 

Numeric literals expressed in scientific notation 
can be used as follows: 

In ttie Data Division, only for elementary items 
whose usage is COMP-2. 

In the Procedure Division, any place a non- 
integer numeric literal is allowed. 

Some examples of numeric literals in scientific 
notation are : 

+3.14159E-4 

.314E+04 

lO.E-20 



Nonnumeric Literals 

A nonnumeric literal is a string of 1 through 255 
characters delimited on both ends by quotation 
marks. Any character in the computer character set 
can be part of a nonnumeric literal. 



When a quotation mark is to be part of the literal, 
it must be represented as two contiguous quotation 
marks within the character-string. Two quotation 
marks embedded between other characters produce a 
single quotation mark within the literal. 

The value of a nonnumeric literal in the executable 
program is the string of characters itself, exclud- 
ing the delimiters. Punctuation characters are 
part of the value of the literal and not separators. 
All nonnumeric literals are category alphanumeric, 
as discussed with the PICTURE clause. 

Wlien the QUOTE IS APOSTROPHE clause Is specified in 
the SPECIAL-NAMES paragraph of the Environment 
Division, the character apostrophe assumes the role 
of tliu character quotation mark. 

Examples of nonnumeric literals are; 

"PAGE A 14 A IS A MISSING. A " 

Produces the 20-character value 
PAGE A 14 A IS A MISSING. A 

"+24.50" 

Produces the 6-character value +24.50 

" " "EMBEDDED A" " " "A QUOTE A" " " 

Produces the 20-character value 
"EMBEDDED A" "A QUOTE A" 

"DEBUG-ITEM" 

Produces the lO-character value DEBUG-ITEM 

Figurative-Constant Values 

Any place a literal is indicated in a clause or 
statement format, a figurative constant can be 
used. Whenever a literal is restricted to having 
only numeric characters, only ZERO or its equiva- 
lent spellings can be used. See table 1-2. 

Examples of figurative constant use are: 

MOVE QUOTES TO AREA-A 

Fills AREA-A with the repeated character ". 
DISPLAY QUOTE "NAME" QUOTE 

Displays "NAME". 
MOVE SPACES TO TITLE 

Sets TITLE to all blanks. 

MOVE ALL "4" TO COUNT-FIELD 

Fills COUNT-FIELD with the repeated char- 
acter 4. 

IF ALL "5" IS EQUAL TO DFG 

Expands the repeated character 5 to the 
size of DFG and compares the expanded size 
with the current value of DFG. 
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PICTURE CLAUSE CHARACTER-STRINGS 



ARITHMETIC OPERATIONS 



A PICTURE character-string is a combination of 
characters used as symbols rather than characters. 
These symbols appear only after the reserved words 
PICTURE or PIC in a Data Description entry in the 
Data Division. Punctuation characters within a 
PICTURE character-string are symbols rather than 
separators. See section 4, Data Division, for a 
discussion of the PICTURE clause. 



Arithmetic operations are specified in the Procedure 
Division statements ADD, SUBTRACT, MULTIPLY, and 
DIVIDE. Arithmetic expressions are specified in 
the COMPUTE statement and in conditional expres- 
sions. Refer to the COBOL 5 user's guide for 
examples of arithmetic operations. 



COMMENT-ENTRIES 

A comment-entry is a combination of characters 
following a predefined paragraph-name in the 
Identification Division. The entry must follow a 
paragraph-name and a separator period and must be 
terminated by a separator period. See section 2, 
Identification Division. 

A comment-entry differs from a comment line only in 
the format in which it appears in the source 
program. 



NUMERIC DATA FORMAT 

Numeric data is stored according to the program 
description of the data and options selected on the 
compiler call. 

COMPUTATIONAL items are stored as display code 
characters. If the CCl parameter appears on the 
compiler call, however, COMPUTATIONAL items are 
stored as if they were COMPUTATIONAL-! items . 

COMPUTATIONAL-1 items are stored as binary inte- 
gers. The high order bits contain the sign of 
the number, and the remaining bits contain the 
value . The sign is represented as all zeros 
(positive value) or all ones (negative value) . 
COMPUTATIONAL-1 values cannot exceed 48 bits, which 
is a value of 281474976710655. This format is the 
same as that for FORTRAN integer variables with the 
exception that FORTRAN will allow bits 48 through 
59 to contain other than all zeros or all ones. If 
they are not all zeros or all ones in COBOL, the 
results of COBOL operations on the items are 
unpredictable. 

COMPUTATIONAL-2 items are stored as floating point 
single precision numbers. The format is the same 
as the real format for FORTRAN. The high order 
bits Indicate the exponent and sign of the number; 
the low order bits are the normalized coefficient. 
See the computer system reference manual or the 
FORTRAN reference manual for more Information about 
this format. 

COMPUTATIONAL-4 items are stored as signed binary 
integers in 6, 12, 18, 24, 30, 36, 42, or 48 
bits. The high order bit contains the sign. A 
COMPUTATIONAL-4 item can appear anywhere in a word 
on a character boundary; no word alignment is 
assumed. 

INDEX items are stored in a format that indicates 
the occurrence number and the location of the item 
from the beginning of the table. 

Figure 1-4 shows the format of numeric items. 



ARITHMETIC EXPRESSIONS 

An arithmetic expression is one of the following: 

Identifier of an elementary numeric item 
Numeric literal 

' Identifier of elementary numeric Item and/or 
numeric literal separated by an arithmetic 
operator 

Two arithmetic expressions separated by an 
arithmetic operator 

Arithmetic expression enclosed in parentheses 

An arithmetic expression must begin with a unary 
operator, a left parenthesis, or a variable; it 
must end with a right parenthesis or a variable. 
Consecutive variables and consecutive binary 
operators must not appear. 

Both binary and unary operators must be preceded 
and followed by a space. A parenthesis can, but 
need not , be separated by a space from the element 
the parenthesis is enclosing. 

Identifiers and literals in an arithmetic expres- 
sion must represent either elementary numeric items 
or numeric literals on which arithmetic can be 
performed. Elementary numeric items can be any of 
the ■ following : 

DISPLAY items containing only digits and 
possibly a sign described by a SIGN IS SEPARATE 
clause 

. COMPUTATIONAL item 

COMPUTATIONAL-1 item 

COMPUTATIONAL-2 item 

COMPUTATIONAL-4 item 

Special registers LINAGE-COUNTER, HASHED-VALUE , 
LINE-COUNTER, and PAGE-COUNTER, 

Binary arithmetic operators and their meaning are: 
+ Addition 
- Subtraction 
* Multiplication 
/ Division 
** Exponentiation 
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a. COMPUTATIONAL Format 
59 53 47 



41 



35 



29 



23 



17 



11 



6-bit characters 



b. INDEX Format 
59 



29 



Occurrence character offset 



Occurrence number 



c. COMPUTATIONAL-1 Format 
59 47 



Sign 



Binary integer 



d. COMPUTATIONAL-2 Format 
59 57 47 



CE 



Exponent 
Magnitude 



Coefficient magnitude 



C Coefficient sign 
E Exponent sign 



e. COMPUTATIONAL-4 Format 
59 



Binary integer in multiple of 6 bits, maximum 48 bits 



Figure 1-4. Numeric Data Format 



Unary arithmetic operators and their meaning are: 

+ The effect of multiplication by the 
numeric literal +1 



The effect of multiplication by the 
numeric literal -1 



Parentheses can be used in arithmetic expressions 
to specify the order in which elements are to be 
evaluated. They can eliminate ambiguities in logic 
where consecutive operations of the same hierarchi- 
cal level appear and can modify the normal sequence 
of evaluation. Expressions within parentheses are 
evaluated first, and, within nested parentheses, 
from the least inclusive set to the most inclusive 
set of parentheses. A one-to-one correspondence 
must exist between a left parenthesis and a right 
parenthesis. 



Hhen parentheses are omitted, or when parenthetical 
expressions are at the same level of inclusiveness , 
operations occur in this order: 



1. Unary plus and minus 

2. Exponentiation 

3. Multiplication and division 

4. Addition and subtraction 

The order of execution of consecutive operations of 
the same hierarchical level is from left to right, 
unless parentheses specify a different order. 



EVALUATION OF EXPRESSIONS 

Arithmetic operations are carried out in inter- 
mediate fields known only to the execution-time 
routines of the system. Using operands supplied by 
the program, the routines evaluate the expression 
or produce an intermediate result. The intermedi- 
ate result is then moved to any receiving item 
specified, with any editing specified by the 
description of the receiving item taking place 
during the move. When a sending item and a receiv- 
ing item share a part of their storage areas , the 
results are unpredictable. 
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Three types of arithmetic can occur: 

Display code arithmetic, in which the character 
representation (not the algebraic value) of an 
item is manipulated; a maximum of 18 digits can 
be accommodated. 



Integer arithmetic, in which the algebraic 
value is manipulated in 48 bits, with bit 60 
being the algebraic sign; a maximum of 14 
digits can be accommodated. 



Floating point arithmetic, in which the 
algebraic value is manipulated according to 
mantissa and characteristic conventions; a 
maximum of 28 digits can be accommodated, with 
one computer word used for single precision 
operations and two words for double precision. 



Decimal point alignment occurs as required during 
these operations. All intermediate result fields 
are established such that no significant digits are 
lost during operations, except in cases of COMP-2 
items in which the data format might produce a 
slight fraction inaccuracy. (The ROUNDED option 
should be specified for results Involving COMP-2 
items.) 



Table 1-3 shows the type of arithmetic used for 
various operands. The table also indicates when 
conversions from storage format to arithmetic 
format occur. COMP items, for instance, must be 
converted to Integer format before they are multi- 
plied but COMP-1 items need not be converted. 

Different types of operations and arithmetic have 
restrictions as follows: 

Intermediate results in a COMPUTE statement are 
restricted to 28 significant digits. 

The number of decimal places provided for 
division is not Infinite, so the sum of two 
expressions involving division might be 
inexact. For example, (1/3) + (2/3) gives 
the result of 0.999... . To increase the 
probability of giving an exact result when a 
computation involves the svmi of two expressions 
Involving division of fixed point operands, the 
division operations are performed so that the 
operands of the sum operation have one more 
decimal position than required by the result 
field. For Instance, when the result field in 
a COMPUTE statement is defined as 9V9 and the 
operands are 2/3 and 1/3, the computation is 
performed to two decimal places, not the one 
place required by the result field; therefore, 
the result is 1.0. 



TABLE 1-3. ARITHMETIC USED FOR OPERAND PAIRS 



Operand 


Operator 


Operand 


DISPLAY 
or COMP 


COMP-1 or 
COMP-4 


COMP-2 


DISPLAY 

or 

COMP 

COMP-1 

or 

COMP-4 

COMP-2 


+ 

* 

/ 

+ 

* 

/ . 

+ 

* 

/ 


D 

D 

12 

F 

13 

11 

11 

12 

F 

13 

F 
F 

F 
F 
F 


11 

11 

12 

F 

13 

11 
11 

12 

F 

13 

F 
F 
F 
F 
F 


F 
F 
F 
F 
F 

F 
F 
F 
F 
F 

F 
F 
F 
F 
F 


Legend : 

D Display code arithmetic; maximum of 18 digits 
F Floating point arithmetic 

11 Integer arithmetic; F if size of intermediate result determined by aligning operands on the 
decimal points is 15 or more digits 

12 Integer arithmetic; F if sum of operand sizes is 15 or more digits 

13 Integer arithmetic If Integer value; otherwise, F 
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The situation with exponentiation and subtrac- 
tion is the same as noted above for division 
and addition. 

For evaluations performed in floating point 
mode, the precision and accuracy of the results 
are determined by the floating point hardware 
of the computer itself. 

Some special cases of exponentiation are defined in 
table 1-4, assuming x is to be raised to the nth 
power . 

TABLE 1-4. SPECIAL CASES OF EXPONENTIATION 



TABLE l-?. COMBINATION OF SYMBOLS IN 
BOOLEAN EXPRESSIONS 



X 


n 


Result 





>0 








<0 


Size error condition 


^0 





1 





not integer 


Size error condition 



BOOLEAN OPERATIONS 

Boolean operations are specified in Procedure 
Division statements which include the bnole.in 
operators BOOLEAN-AND, BOOLEAN-OR, BOOLEAN-HXOR , or 
BOOLEAK-SOT. Boolean expressions are used in the 
COMPUTE statement .md in relation conditions. They 
are evaluated at the character level, rather than 
at the bit level . 

KOTE 

Because of anticipated changes in this 
product, use of BOOLEAN Items Is not recoia- 
inended. For guidelines, see iippendix F. 



First 
Symbol 


."Seconsi ';S}pbbi.,- ■,/;,.••'":. ,',"•; 


•Bttoleaa 

■ .-ViHSbie'-''' 

;:■.;; or-\:j 
;ltite«ai;. ;_. 


BOOLEAN- 
OR 
AND 
EXOR 


: BOOLEASH" 
, ;■: NOT;'--;.' 


,;(,' 


) 


Boolean 
variable 
or 
literal 

BOOLEAN- 
OR 
AND 
EXOR 

BOOLEAN- 
SOT 

( 

) 




P 
P 


;•:'■;;,:?.:' ;■■■■ 




p 

p 


Legend : 

P Permissible pair 
- Invalid pair 



Tliree binary boolean operators can be used in 
boolean expressions: BOOLEAN-AND, BOOLEAN-OR, and 
BOOLEAA'-EXOR. One unary boolean operator, BOOLEAN- 
XOT, can also be used in boolean expressions. See 
table 1-6 for the boolean operators and theii- 
correspondi ng meanings. 

TABLE i-6. BOOLEAN" OPERATORS 



BOOLEAN EXPRESSIONS 

A boolean expression can appear in one of the 
following forms: 

A boolean variable or identifier of a boolean 
data item 



A boolean literal consisting of the char-icters 
or 1 



A combination of boolean variables and/or 
literals separated by a boolean operator 



Boo3 ean Operator 


Moaning 


BOOLEAN-AND 


Boolean conjunction (logical 




AND) 


BOOLRAN-OR 


Boolean inclusive disjunc- 




tion (logical OR) 


BOOLEAN-EXOR 


Boolean eiccjusive disjunc- 




tion (logical exclusive OR) 


BOOLEAS-NOT 


Boolean negation (logical 




complemfint) 



Two boolean expressions sjpuratcd by a boolean 
operator 



A boolean expression enclosed in parentheses 

Boolean expressions are made up of boolean operands 
(boolean variables or literals), boolean operators, 
and parentheses. The permissible combinations ol 
boolean variables, boolean literals, boolean 
operators, and parentheses are given in table ]-i. 



All boolean operators are reserved words .ind must 
be both preceded and followed by the separator 
space . 

Wlienever two boolean expressions are separated only 
by 300LEAK-AND, BOOLE/\N-OR, or BOOLEAN-EXOR, a now 
boolean expression is formed with BOOLEAN-AND, 
BOOLEAN-OR, or BOOLEAN-EXOR as the boolean opera- 
tor. Whenever a boolean expression is immediately 
preceded by BOOLEAN-NOT. a new boolean expression 
:s formed with BOOLEAN-NOT as the boolean operator. 
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A boolean expression must begin with a left 
parenthesis, a boolean variable, a boolean Literal, 
or the operator BOOLEAN-NOT . A boolean expression 
must end with a right parenthesis, a boolean 
variable, or a boolean literal. 

Parentheses are used in boolean expressions to 
specify the order in which boolean expression 
elements are evaluated. Expressions within 
parentheses are evaluated first. Within nested 
parentheses, evaluation proceeds from the least 
inclusive set to the most inclusive sut. Paren- 
theses must appear in balanced pairs. 

When parentheses are omitted, or when parenthetical 
expressions are at the same level if incluslveness, 
operations occur in the following order: 

1. Negation ( BOOLEAN-NOT) 

2. Conjunction ( BOOLEAN- AND ) 

3. Disjunction (BOOLEAN-OR and BOOLEAN-EXOR) 

Parentheses are used to eliminate ambiguitios in 
logic where consecutive operaLiuns of the same 
hierarchical level appear. Parentheses are also 
used to modify the normal hierarchical sequence of 
evaluation within an expression. The order of 
execution of consecutive oper.-ittons of the same 
hierarchical level is from left to right, unless 
parentheses specify a different order. 



EVALUATION OF BOOLEAN EXPRESSIONS 

Boolean operations are performed in intermediate 
fields. The intermediate result is moved Lo any 
receiving item specified. Assignment of boolean 
variable or identifier values can be achieved with 
the COMPUTE statement. 

A boolean operation involves the conjunction, 
inclusive disjunction, exclusive disjunction, or 
negation pfrrormerl on operands of typo boolean. 
The results of these operations for .iLl possible 
combinations of boolean cliaracter values are listed 
in table 1-7. 



character positions starting from the high order 
position and continuing to the lower order posi- 
tion. If the operands are of unequal Length, the 
operation proceeds as though the shorter operand 
were extended on the low order end by boolean zeros 
to make the operands of equal size. 



p 


= 0101011101 and Q = 1100110101 


p 


BOOLEAN 


-AND 






The conjunction of P and Q is formed as follows: 




P 
Q 


0101011101 
1100110101 
0100010101 


Result of conjunction 


p 


BOOLEAN-OR Q 








The inclusive disjunction of P and Q 
follows: 


is formed as 




P 
Q 


_k -A -A 
o oo 

o o o 


Result of disjunction 


p 


BOOLEAN 


-EXOR Q 






The excl 
follows: 


usive disjunction of P and Q 


is formed as 




P 
Q 


0101011101 
1100110101 
1001101000 


Result of disjunction 


BOOLEAN-NOT Q 






The noyation of Q is formed as follows: 




Q 


1100110101 
0011001010 


Result of negation 



Figure 1-5. Examples of Boolean Operations 



Examples of 
rigure 1-5. 



boolean operations are shown 



If the operands are of equnl lengtn, tiie operation 
proceeds by conjoining, disjoining, or exclusively 
disjoining boolean characters in corresponding 



CONDITIONAL EXPRESSIONS 

Conditional expressions identify conditions that 
can be tested in a program to determine alternative 
paths of action. They are specified in the Proce- 
dure Division statements IF, PERFORM, and SEARCH. 



TABLE 1-7. RESULTS OF BOOLEAN OPERATIONS 



Boo lean 

Character 

Value 


Conjunction 
P BOOLEAN-AND Q 


, Inclusive 
Disjunction 

P BOOLEAK-OR Q 


■ -^ Exclusive' . 
ttts junction ■ , ■ , 

P B0O£EAN-F,XOR Q-. 


. Negation. 
; BOOLEAN-NOT Q 




P 


•■■:>■.;••■ 


1 
1 






I 





1 
:■■■-•,'.'•■, ' 

, ; ■ , ■■■ ^'- 1 

:;;•:;;-: 


''[-■ ':' ,.0. ;■,"•": .■■"■ 
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Two categories of conditions are associated with 
conditional expressions: simple conditions and 
complex conditions. Faired parentheses can be used 
In both simple and complex conditions without 
changing the category of the condition. 



SIMPLE CONDITIONS 

simple conditions Include the following: 

Class, which determines whether an operand Is 
purely numeric or purely alphabetic or neither 

Condition-name, which compares a variable and 
a predetermined value associated with a 
condition-name 

Relational, which compares values of two 
operands 

Sign, which determines the sign of an arith- 
metic expression 

Switch-status, which tests the ON or OFF status 
of an external or Internal software switch 



Class Condition 

The class condition determines whether an operand 
Is numeric or alphabetic. Class condition format 
Is shown In figure 1-6. 



identifieMSlJVlOI] |y^|^ 



Figure 1-6. Class Condition Format 



USAGE IS COMF-1 is specified and the leftmost 
12 bits of the word containing the Item consist 
of all ones or all zeros; (Chat is, no item has 
been moved to the item that destroyed its 
GOMP-1 format). 

The operand consists entirely of the digits 
through 9 and the presence of any operational 
sign agrees with the description of the sign. 
For example, any item described by SIGN IS 
SEPARATE must have a separate, not an over- 
punch, sign. 

The NUMERIC test cannot be used with an item 
described as alphabetic or as a group Item con- 
taining elementary items with operational signs. 

The operand belongs to the alphabetic class only 
when the contents consist entirely of the charac- 
ters A through Z and the space. The ALPHABETIC 
test cannot be used with an item described as 
numeric. 



Condition-Name Condition 

The condition-name condition determines whether or 

not the specified item is equal in value to one of 

the predefined values for the condition. Format of 
this condition is simply: 

condition-name 

The condition-name must be a level 88 item in the 
Data Division that is associated with a constant or 
a range of values. 

The condition Is true when the value is either 
within the range specified, including both ends of 
the range, or is equal to the constant specified. 
Any sign character must agree with the description 
of the condition-name for the condition to be true. 



The operand belongs to the numeric class if one of 
the following criteria is met: 

USAGE IS COMF-2 is specified. 

USAGE IS CaMP-4 is specified. 



Relation Condition 

A relation condition (figure 1-7) determines the 
relative magnitude of two operands. Table 1-8 
shows the type of operands that can be compared. 



Format 1 



( identifler-1 

< literal-1 

' arlthmetic-expression-1 



IS [NOIl 

IS [NQIl 

IS r NOT I 

IS F NOT I 

IS [ NOT ] 

IS F NOT I 

IS UNEQUAL TO 

EQUALS 

EXCEEDS 



GREATER THAN 

_>_ 

LESS THAN 

< 

EQUAL TO 



I identifier-2 

< literal-2 

( arithmetic-expression-2 



Format 2 



I IS iNOT' EQUAL TO ) 



I - . , 

boolean s.xpres.,or.-1 |^ g^E^uALTO I 

' e qua Ls ' 



buoiiJHn exrirHssiun-2 



Figure 1-7. Relation Condition Format 
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Figure 1-7 shows the acceptable formats for the 
comparison of two operands. Format 1 Is used for 
comparison of operands other than those of the 
boolean class. At least one variable must be used 
in the condition expression. Kitmai: 2 ds. used for 
comparison of operands of Che boolean class. 

Any two nvmierlc class operands can be compared, 
regardless of the USAGE clause descriptions. 
Comparison is made with respect to the algebraic 
value of the operands. The number of digits 
represented is not significant. Zero is a unique 
value, regardless of its sign. Unsigned operands 
are considered positive. 

A numeric class operand can be compared with a 
nonnumerlc operand only when both operands have the 
same USAGE clause descriptions and the numeric 
operand is an integer data item, integer literal, 
or an arithmetic expression containing only integer 
operands and/or literals. 

Two nonnumerlc operands or one numeric and one 
nonnumerlc operand are compared with respect to a 
collating sequence in which each character has a 
particular value. The collating sequence can be 
established in four ways; by default, by the 
ALPHABET clause in the SPECIAL-NAMES paragraph, 
by the COLLATING SEQUENCE clause in the OBJECT- 
COMPUTER paragraph, or by the SET statement. 
Comparison is made from left to right of each 
operand. When operands are of unequal size, 
comparison proceeds as though the shorter operand 
were extended on the right by spaces to make the 
operands of equal size. The first nonmatching 
character pair establishes the greater operand, 
with the higher collating sequence value 
determining the greater operand. 

Two boolean operands can be compared only for 
equality or inequality. Boolean operands can 
only be compared with other boolean operands. A 
boolean operand is a single boolean Itea, a boolean 
literal, or a boolean expression. If the operands 
are of equal size, comparison proceeds by comparing 
boolean characters In corresponding boolean char- 
acter positions. Comparison starts from Che high 
order position and continues until either a pair of 
unequal boolean characters is encountered or the 
low order position of the operands is reached. The 
operands are equal if all pairs of boolean charac- 
ters compare equally; otherwise, the operands are 
unequal. If the operands are of unequal length, 
comparison proceeds as Chough the shorter operand 
were extended on Che righc by boolean character 
zeros to make the operands of equal size. 



Switch-Status Condition 

The switch-status condition determines whether a 
specified switch is ON or OFF. Six external 
switches are available, identified as SWITCH-1 
through SWITCH-6. Internal switches SWITCH-7 
through SWITCH-126 are also available for testing. 
Format of this condition is ; 

condition-name 



when the particular switch associated with the 
condition-name is set to the value Indicated by the 
status. External switches can be manipulated by 
the SWITCH control statement in the job deck, by 
operator action at any time, or by the terminal 
user during a program pause (a STOP literal state- 
ment) . Both external and Incernal switches can be 
manipulated by Che SET sCaCement within a program. 



Sign Condition 

The sign condition (figure 1-8) determines whether 
or not the algebraic value of an arithmetic 
expression Is less than, greater than, or equal to 
zero. The arithmetic expression must contain at 
least one reference to a variable. Table 1-9 shows 
the resulting value for each keyword. 



( POSITIVE ) 
arithmetic-expression IS [ NOT ] < NEGATIVE, > 

(zero ) 



Figure 1-8. Sign Condition Format 



TABLE 1-9. RESULTS OF SIGN CONDITION 



Keyword 


Value 


POSITIVE 


Greater than zero 




NEGATIVE 


Less than zero 




7,RR0 


Zero 




NOT POSITIVE 


Zero or negative 




NOT NEGATIVE 


Zero or positive 




NOT ZERO 


Greater than or less 


than zero 



COMPLEX CONDITIONS 

Complex conditions are: 

Simple conditions and/ or complex conditions 
combined with a logical operator AND or OR. 

Simple conditions and/or complex condlclons 
negated with the logical operator NOT. 

The logical operators and their meanings arei 

AND 

Logical conjunction; true only when both 
conditions are true 



The condition-name must be specified in the 
SPECIAL-NAMES paragraph of the Environment Division 
and equated to an ON or OFF status for a particular 
switch. The result of the test is true only 



OR 



Logical Inclusive ORj true when at least 
one condition is true 
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NOT 

Logical negation; true when the condition 
is false 

Complex conditions can be negated simple conditions 
or combined conditions. 



Negated Simple Conditions 

A simple condition is negated by the logical 
operator NOT. The general format for a negated 
simple condition is: 

NOT simple-condition 



Combined and Negated Combined Conditions 

A combined condition results from connecting 
conditions with one of the logical operators AND or 
OR. Figure 1-9 shows the general format for a 
combined condition. 



condition 



j AND j condition 



Figure 1-9. Combined Condition Format 

Condition can be any of the following: 

Simple condition 

Negated simple condition 

Combined condition 

Negated combined condition in which the logical 
operator NOT is followed by a combined condi- 
tion enclosed within parentheses 

Combinations of the above 

Parentheses can be used to specify the order in 
which Individual conditions are to be evaluated. 
Conditions within parentheses are evaluated first, 
and, within nested parentheses, evaluation proceeds 
from the least inclusive condition to the most 
inclusive condition. Left and right parentheses 
must be paired. 

When parentheses are omitted, or when parenthesized 
conditions are at the same level of inclusiveness , 
evaluation proceeds in the following order: 



1. Values are 
expressions. 



established 



for 



arithmetic 



Truth values for simple 
established in this order: 

relation 

class 

cond 1 tion-nane 

switch-status 

sign 



conditions are 



3. Truth values for negated simple conditions are 
established. 

4. Truth values for combined conditions are 
established for AND logical operators, then for 
OR logical operators. 

5. Truth values for negated combined conditions 
are established. 

Consecutive operations of the same level are 
evaluated from left to right. 

Combined conditions can be abbreviated such that 
the relation-condition and relational-operator need 
not be repeated for a consecutive sequence of 
identical comparisons . The general format for an 
abbreviated combined relation condition is shown in 
figure 1-10. 



relation-condition 




[NQIl 



[relational-operator] object > ■ ■ ■ 



Figure 1-10. Abbreviated Combined Relation 
Condition Format 

The word NOT is interpreted according to the word 
following NOT: 

NOT Is part of the relational operator when 
followed by: GREATER, >, LESS, <, EQUAL, or =. 

NOT is a logical operator otherwise and results 
in a negated relation condition. 

Examples of abbreviated combined and negated 
combined relation conditions and their expanded 
equivalents are : 

a > b AND NOT < c OR d 

is equivalent to 
((a > b) AND (a NOT < c)) OR (a NOT < d) 

a NOT EQUAL b OR c 

is equivalent to 
(a NOT EQUAL b) OR (a NOT EQUAL c) 

NOT a = b OR c 

is equivalent to 
(NOT (a = b)) OR (a = c) 

NOT (a GREATER b OR < c) 

is equivalent to 
NOT ((a GREATER b) OR (a < c)) 

a/b NOT EQUAL c AND NOT d 

is equivalent to 
((a/b) NOT EQUAL c) AND 
(NOT ((a/b) NOT EQUAL d)) 

NOT (a NOT > b AND c AND NOT d) 

is equivalent to 
NOT ((((a NOT > b) AND (a NOT > c)) AND 
NOT (a NOT > d))) 
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ITEM AND TABLE REFERENCES 

All items referenced within the Procedure Division 
must be uniquely Identified. User-defined words 
can be qualified to achieve uniqueness. Items In a 
table defined by an OCCURS clause in the Data 
Division can be uniquely identified by subscripts 
or Indexes. 

Data-names and condition-names can be referenced 
uniquely through a combination of qualification, 
indexing, or subscripting shown below under the 
heading Identifier Definition. In the formats of 
this manual, the term identifier refers to a 
data-name uniquely referenced; condition-name 
refers to a condition-name uniquely referenced. 

Reference modification can be used to reference a 
portion of a data item of Che alphanumeric or 
boolean class. 



Qualification of user-defined words is allowed in 
all formats of the Procedure Division unless 



qualification is specifically prohibited by a 
particular format. 



QUALIFICATION OF USER-DEFINED WORDS 

Qualification can be used to uniquely identify 
user-defined words or particular special regis- 
ters. Qualification is performed by following the 
user-defined name and separator with the reserved 
word OF or the reserved word IN and a qualifying 
word. OF and IN are logically equivalent and can 
be used interchangeably. 

The element that can be used as a qualifier 
depends on the item being qualified, as shown in 
figure 1-11. A qualifying element can, itself, be 
qualified. A data-name cannot be subscripted when 
it is being used as a qualifier. A user-defined 
name can be qualified even though it does not 
require qualification. If more than one combi- 
nation of qualifiers ensures uniqueness, any such 
set can be used. 



Format 1 



i data-name-1 \ 
\ condition-name f 



j{M| <^»-n.~.2}...[i^ii*r.:] 



mIN^ I I file-name 
[iQF f icd-namet 



!] 



Format 2 



paragra 



ph-name h oF / 



section-name 



Format 3 



text-name \ OF f library-name 



Format 4 



LINAGE-COUNTER 



||M I file-name 



Format 5 



Format 6 



I PAGE-COUNTER 
I LINE-COUNTER 



][m 



report-name 



] 



data-name-3 



I {oFf data-name-4 • • • \0F) report-name | 
ll'OFj report-name 



^Can only be used under NOS, 



Figure 1-11. Qualification Format 
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In format 1, each qviallfier must be the name 
associated with a level Indicator or the name of a 
group Item to which the user-defined word item is 
subordinate. Qualifiers are specified in the order 
of successively more Inclusive levels in the 
hierarchy. The cd-name can only be used under NOS. 

Formats 2 through 6 show the format for qualifying 
each of the following: 

Paragraph-name 

Text-name 

LINAGE-COUNTER special register 

PAGE-COUNTER and LINE-COUNTER special registers 

Data-name in a report 

If qualification is used to make a condition-name 
unique, the associated conditional variable can be 
used as the first qualifier. The hierarchy of 
names associated with the conditional variable or 
the conditional variable Itself must be used to 
make the condition-name unique. 



TABLE ITEM IDENTIFICATION 

References can be made to individual elements 
within a table by specifying indexing or subscript- 
ing. Indexing is usually more efficient than 
subscripting. Indexing is not allowed where 
subscripting is not allowed. Indexing and sub- 
scripting cannot be mixed within a given reference, 
for strict ANSI usage. In order Lo provide com- 
patibility with future ANSI standards, mixing of 
indexing and subscripting is allowed. Forty-eight 
levels of Indexing and subscripting nre also 
allowed. 

During execution, the program is responsible for 
establishing a table reference that is within the 
bounds of the table. Use of the DB=SB parameter on 
the compiler call, however, causes the system to 
diagnose out-of-bounds table references during 
execution. 



Subscripting 

Subscripts can be used only when reference is made 
to an Individual element within a list or table of 
like elements that have not been assigned indi- 
vidual data-names. Figure 1-12 shows the general 
format of subscripting. 



not, have a plus sign. Data-name cannot be an 
index data item nor a COMP-2 item. Data-name can 
be qualified, but no subscript itself can be 
subscripted. In Report Writer references, neither 
a sum counter nor the special registers LINE- 
COUNTER and PAGE-COUNTER can be used as a subscript. 

The lowest possible subscript value is 1, which 
points to the first element of the table. The next 
sequential elements of the table are pointed to by 
subscripts with values of 2, 3, 4, and so forth. 
The highest permissible subscript value is the 
maximum number of occurrences of the item as 
specified in the OCCURS clause. 

Any subscripts must be enclosed in parentheses. 
They can, but need not, be separated by commas. 
When more than one subscript is required, they are 
written in the order of successively less inclusive 
dimensions of the data organization. Refer to the 
COBOL 5 user's guide for examples of subscripting. 



Indexing 

References can be made to individual elements 
within a table of like elements by specifying 
indexing for that reference. An index is assigned 
to that level of the table by using the INDEXED BY 
clause in the definition of a table. A name given 
in the INDEXED BY clause is known as an index-name 
and is used to refer to the assigned index. 

The value of an index corresponds to the occurrence 
number of an element in the associated table. An 
index must be initialized by execution of a SET 
statement, a SEARCH ALL statement, or a format 4 
PERFORM statement before it is used as a table 
reference. 

Figure 1-13 shows the general format for indexing. 
Two types of indexing are possible: 

Direct indexing occurs when an index-name is 
used as a subscript. 

Relative indexing occurs when an index-name 
used as a subscript is followed by a literal 
that increments or decrements the current value 
of the index-name item. 

When more than one index-name is required, they are 
written in the order of successively less inclusive 
dimensions of the data organization. 

The value of index-name during execution must be 
within the range of the possible occurrence number 
of an element in the associated table. 



( data-name \ f 

\ condition-name / (subscript-1 [, subscript-2 

[, $ubscript-3] . . . [, subscript-n] ) 



Figure 1-12. Subscripting Format 

The subscript can be represented either by an 
integer or a data-name that defines an elementary 
numeric integer item. The subscript can, but need 



IDENTIFIER DEFINITION 

In the formats in this manual, the term identifier 
is used to reflect a unique reference to a data- 
name. If the data-name Itself is not unique in the 
program, the term identifier implies that the 
data-name Is referenced uniquely through a syn- 
tactically correct combination of qualifiers, 
subscripts, or indexes. 

Figure 1-14 shows the general format for identi- 
fiers. This format also applies to condition- 
names. The cd-name can only be used under NOS. 
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i data-name ) . 

\ condition-name / ' ' 



index-fiame-1 { + [ literal-2r 



literal- 1 



I index-name-2 \{±\ literal-4 
( literal-3 



index-name-3 \{±\ literal-6 



literal-5 



Figure 1-13. Indexing Format 



Format 1 


data-name- 1 


< > data-name-2 

(in) 




(in.) (report-name) 


(subscript-1 [, subscript-2 [, subscript-3]] ||jfl 
[(reference-modification) ] 


Format 2 


data-name-1 


< > data-name-2 




^ OF W file-name ) ( index-name-1 [j ± \ literal-2] ) 
(in ) (report-name) ( literal-1 ) 




( index-name-2 [| ± } literal-4] ^ 
( literal-3 ) 


( index-name-3 £| ± f 1 itera 1 -6 ] ) " 
. 1 literal-5 ). 


'M 


[(reference-modification) ] 








^Can only be used under NOS. 



Figure 1-14. Identifier and Condition-Name Unique Reference Format 



If references to a conditional variable require 
indexing or su> Ipting, then references to any of 
its condition-iw .s also require the same combina- 
tion of indexing or subscripting. 



REFERENCE MODIFICATION 

Reference modification Is a method of accessing a 
part of a data itera. The fannat of reference 
modification Is shown In figure 1-15. Reference 
modification creates a unique data item which Is a 
subset of the data item referenced by d.ita-mimc. 
Data-name must reference a d.tta Itiim that has 
DISPLAY u.sage. Leftmost-character-position and 
length must be arithmetic expressions. Each 
character of the data item referenced by data-name 
is assigned an ordinal number, which Is incremented 
by one (starting at one) from the leftmost position 
to the rightmost position. If the Data Description 
entry for data-name contains a SlGS IS SEPARATE 
clause, the sign position Is assigned aii ordinal 
number within that data item. Figure ]-16 provides 
examples of reference modification. 



• length I , 
data-name (leftmost-character-position : ) ^j^q ( ) 



Figure 1-15. Reference Modification Format 



Reference modification Is allowed anywhere an 
identifier referencing a data item of the class 
.Hlphjnumerlc or boolean is permitted, unless 
otherwise specified. If the data Item referenced 
by data-name is described as numeric, numeric- 
edited, alphanuncric, or alphanumeric-edited, it is 
opcraC&d upon as if it were an alphanumeric data 
item. Otherwise, the unique data item has the same 
class and category as that of the data-item 
referenced by data-name. The unique data item is 
considered an elem.entary data item without the 
JUSTIFIES Clause, Reference modification for an 
operand is evaluated immediately after evaluation 
of any subscripts or indexes that are specified for 
that operand . 
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Source Listing: 



IDENTIFICATION DIVISION. 



WORKING-STORAGE SECTION. 

01 ITEM PIC XC26) VALUE "ABCDE FGHIJKLMNOPQRSTUVUXYZ" . 

01 A PIC 99 VALUE IS 2. 

01 B PIC 99 VALUE IS 5. 

01 D. 

02 C PIC XdO) OCCURS 3 TINES. 
01 NUH PIC 99 VALUE IS 24. 
PROCEDURE DIVISION. 
PAR-1 . 

HOVE ITEM ( 2 : 5 ) TO C C 1 ) . 

DISPLAY "C(1)=" C ( 1 ). 
HOVE ITEM (3:A+B)T0C(2). 

DISPLAY "C(2)=" C ( 2 ). 
HOVE C CA) ( 4 : 3 } TO ITEM C NUH : 3 ). 

DISPLAY "ITEH=" ITEH. 
STOP RUN. 



Output: 



CC1 )=BCDEF 

C<2)=CDEFGHI 

ITEM=ABCDEFGHIJKLMNOPQRSTUVWFGH 



Figure 1-16. Reference Modification Example 



The lettmost-i-.haraeter-position srciifit's t'u- firsi 
pDsirioii nt Ihf data item created In vfllitinii to 
the leTtmo-it oharai-Lfr nT rf<ita-njni>.'. Thi.- 

lertmoMt-char.icl I'l — piis.'lion niiml bu j positive 
noiizt-ro intt'ger less than or equal tn lI.p ii[nibi!r tii 
characters in the d.ita ilpm refiTcnci''. by <l,ita- 
iKimc. It yii iliygal let Lmost-charactcr-posit ion is 
used, the results .ire undefined; huwuviT, I" 1)H-I<!'" 
is spccLlic'd on the compi l(>r call -if atement , .in 
extTiilion di.-ijjiiijsL J »; results and t'lo run aborts- 

The length spyciiLcs the size ol the data Itera to 
be used in the operation. The li-ngtn must be a 
positive nonzero integtir. The sum .jf loflmosl- 
character-posi tion and ihe. length, ra.'n'.is oiii*, inr.sl 
be less than or equal to the nunher nf characters 
in the data Iteir. rffercnci-ii by data-nuine. it this 
sum is greater than tlui allowed vilue, 'ir i ■-. 
negative or zero, the results are umlefinii>i; 
howeviT, if DB=RE'' is specified on the compiler call 
sLattiment, .in execution diagnostic: results and the 



run aborts. If the I'.NL) phrase is specified, the 
unique ci.-ita item extends from and includes the 
character identified by lef tmost-character-posi tion 
up to and including the rightmost character of the 
f'.ril.i i ( I'rr. relorenceu by data-name. 

Reference modification is not allowed l.-i tlu' 
fo 1 1 ow ing: 

ihe MOVE CORRESPOSCi.NG, ADD CORRESPONDING , 
SUBTRACT CORRESPONDING, and USK KOR DEBUGGING 
sLatemcnts 

'llie table name i'l d SEAKCIi statement 

Tlif- n-cciving data item following the word INTO 
in a STRING statement 

llif si'iLdiiig liaLa iti-m in an UNS'lKINl! statement 

The Report Section | 
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IDENTIFICATION DIVISION 



The Identification Division Identifies the source 
program. The division has one required paragraph 



and five optional paragraphs. Format of 
Identification Division is shown in figure 2-1. 



the 



IDENTIFICATrON DIVISION . 
PROGRAM-ID . program-name. 
[ AUTHOR , [comment-entry]] 
[installation, [comment-entryl] 
[date-written , [comment-entry]] 
[ DATE-COMPILED , [comment-entry]] 
[ SECURITY , [comment-entry]] 



Figure 2-1. Identification Division Format 

The division header is: 

IDENTIFICATION DIVISION. 



The header must appear on a separate line, 
beginning in area A. The separator period must 
terminate the header. 

The first paragraph must be PROGRAM- ID. All other 
paragraphs are optional, but. If present, must 
appear In the order shown. 

The AUTHOR, INSTALLATION, DATE-WRITTEN, and SECURITY 
paragraphs are documentary only. 

NOTE 

Because of anticipated changes In this 
product, use of comment entries is not 
recommended. See appendix F for guidelines. 

The comment-entry of the last five paragraphs in 
the division can be any combination of characters 
from the computer character set shown in 
appendix A. When the comment extends to more than 
one line, the hyphen must not appear in the 
indicator area. 



PROGRAM-ID PARAGRAPH 

The PROGRAM-ID paragraph (figure 2-2) gives the 
program an entry point for use by the loader of the 
operating system. In addition to giving the program 
a name to identify output listings. 



PROGRAM-ID . program-name. 



Figure 2-2. PROGRAM-ID Paragraph Format 



Program-name is a user-defined word. The first 
seven characters of the word become the program 
entry point name. 



When the program is a subprogram that will be 
executed as a result of a CALL statement, the 
program-name must begin with a letter. If multiple 
programs are combined to form a run unit, the first 
seven characters in the program-name of each of the 
programs must be unique. 



DATE-COMPILED PARAGRAPH 

The DATE-COMPILED paragraph (figure 2-3) causes the 
current date to be inserted In the source program 
listing produced during compilation. Any comment- 
entry specified is replaced during compilation with 
the current date. 



DATE-COMPILED , [comment-entry] 



Figure 2-3. DATE-COMPILED Paragraph Format 



Since the date of compilation appears in the 
heading of each page of the compilation output 
listings, the paragraph is redundant. 
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ENVIRONMENT DIVISION 



Environment Division documents the configuration of 
the computers used to process the program and 
sunplies operating system interface Information. 
This division Is optional except for programs doing 
Imut/output usin^ files residing on external 
storage devices. Tlie division lias two sections, 
both of which can bo omitted. The division header 
can also be omitted. A skeleton of the Environment 
Division is shown in figure 3-1. 





■- 


ENVIRONMENT DIVISION. 




J 
\ 

\ 

r 


CONFIGURATION SECTION. 


SOURCE-COMPUTER. rsource-comDuter-entrvll 


[object-computer. roblect-comDuter-entrvlf 
SPECIAL-NAMES. rsDecial-names-entrvlf ; 


INPUT-OUTPUT SECTION. 


FILE-CONTROL, jfile-control-entryf . . .| 


^■^ 


FI-O-CONTROL. Input-output-control-entry] 

'■i 



SOURCE-COMPUTER, iiomputer-nanrte clause 
DEBUGGING MODE clausejl 



Figure 3-2. SOURCE-COMPUTER Paragraph Skeleton 



Computer-Name Clause 

The computer-name clause must appear first, and is 
documentary only. Computer-name must conform to 
the syntax of a system-name. The system-name CYBER 
or C"!iBER-170 is recommended for its documentary 
value , Clause format is : 

computer-name 



DEBUGGING MODE Clause 

The DEBUGGING MODE clause specifies that all USE 
FCHl DEBUGGING declarative statements and all 
debugging lines in the program are to be compiled 
as executable code. See section 10, Debugging Aids. 



Figure 3-1. Environment Division Skeleton 

The division header is: 
ENVIRONMENT DIVISION. 



B; however, when used it must 
appear on a separate line, beginning in area A. 
The separator period must terminate the header. 



CONFIGURATION SECTION 

The Configuration Section contains three optional 
paragraphs: SOURCE-COMPUTER, OBJECT-COMPUTER, and 
SPECIAL-NAMES. The entire section can be crtnitted. 

The section header is: 

CONFIGURATION SECTION. 



The header must appear on a separate line, 
beginning in area A. The separator period must 
terminate the section header, 
following paragraphs can appear. 



A header without 



OBJECT-COMPUTER PARAGRAPH 

The OBJECT-CCMPUTER paragraph documents the 
computer on which the program Is to be executed, 
selects the collating ^quence for nonnumerlc 
comparisons, and specifies a segment section 
limit. The paragraph is optional. The skeleton 
for the OBJECT-CCMPUTER paragraph is shown in 
figure 3-3. The paragraph header Is: 

OBJECT-COMPUTER. 



OBJECT-COMPUTER. Jcomputer-name clause 
[, PROGRAM COLLATING SEQUENCE clause] 
[, SEGMENT-LIMIT clause] .§ 



Figure 3-3. OBJECT-COMPUTER Paragraph Skeleton 



The computer-name clause must be first; other 
clauses can appear in any order. 



SOURCE-COMPUTER PARAGRAPH 

The SOURCE-COMPUTER paragraph documents the 
computer upon which the program is to be compiled 
and selects the debugging facility. The paragraph 
is optional. The skeleton for the SOURCE-COMPUTER 
paragraph is shown in figure 3-2. The paragraph 
header is: 

SOURCE-COMPUTER. 



Computer-Name Clause 



The computer-name clause is optional and docu- 
mentary only. Computer-name must conform to the 
syntax of a system-name. The system-name CYBER or 
CYBER-170 is recommended for its documentary 
value. Clause format Is: 

compute r-name 
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PROGRAM COLLATING SEQUENCE Clause 

The PROGRAM COLLATING SEQUENCE clause (figure 3-4) 
specifies the collating sequence used to determine 
the truth value of all nonnumerlc comparisons in a 
program, including comparisons for: 



Sort or merge operations 



Keys of records 
organization 



in files with random 



Control break processing of report 



PROGRAM COLLATING SEQUENCE IS alphabet-name 



Figure 3-4. PROGRAM COLLATING SEQUENCE 
Clause Format 



The values of the figurative constants HIGH-VALUE 
and LOW-VALUE are also affected by this clause. 

If the clause is omitted, the collating sequence 
associated with the native character set is used 
for all nonnumerlc comparisons, unless another 
sequence is specified for a sort. The native 
character set is defined by the Installation. 

The collating sequence specified in the OBJECT- 
COMPUTER paragraph can be overridden during 
execution. 

For nonnumerlc comparisons, the cullaLlng 
sequence can be changed by execution of a 
format 3 SET statement . 

For sort or merge operations, the collating 
sequence can be changed by including the PROGRAM 
COLLATING SEQUENCE clause in the SORT statement 
or the MERGE statement. It also can be changed 
by execution of a format 3 SET statement. 



The alphabet-name of the clause identifies the 
selected collating sequence. It must be the same 
as an alphabet-name specified in the SPECIAL-NAMES 
paragraph. Refer to the ALPHABET clause discussion. 



SEGMENT-LIMIT Clause 

The SEGMENT-LIMIT clause defines permanent segments. 
See section 8, Memory Management. 



SPECIAL-NAMES PARAGRAPH 

The SPECIAL-NAMES paragraph (figure 3-5) relates 
implementor-names to user-specified mnemonic-names 
and relates alphabet to character sets and/or 
collating sequences. It can also be used to 
specify the alternative representation of the 
quotation mark and currency symbol, the alternative 
use of the decim.il poLnt and comma as punctuation 
in numLTif cdi'-t'd d.ita items, ^T)4 :. t^* ' default 
definition of the sign , conyentloit'-' for:;; &lgfi^ i«*- 
merle display data items< The paragraph header is: 

SPECIAL-NAMES. 



SPECIAL-NAMES. [implementor-name clause] . . . 

[; ALPHABET clause] . . . [; CURRENCY SIGN clause] 

[; DECIMAL-POINT clause] f ;; Qt(Of:£ claiisel 

t; SIGN iimml = [;. SUB-SGH EMA sblduael 

[; SWITCH-n clause] .... 



Figure 3-5. SPECIAL-NAMES Paragraph Skeleton 



Implementor-Name Clause 

The Implementor-name clause (figure 3-6) establishes 
a mnemonic-name for reference in Procedure Division 
statements. More than one implementor-name clause 
can appear. 



implementor-name IS mnemonic-name 



Figure 3-6. Implementor-Name Clause Format 



When the implementor-name is a file name of 
"TERMINAL" or CONSOLE, the clause associates 
the file with a mnemonic-name for reference in 
an ACCEPT statement or DISPLAY statement. 

When the implementor-name is a single carriage 
control character enclosed in quotation marks, 
the clause associates the character with a 
mnemonic-name for reference in the ADVANCING 
phrase of a WRITE statement. 



File Name as Implementor-Name 

Any valid logical file name can be specified as an 
implementor-name and equated to a mnemonic-name. 
The mnemonic-name is then used in ACCEPT and DISPLAY 
statements. When the names INPUT, TERMINAL, and 
OUTPUT are specified as implementor names, they 
should be enclosed in quotation marks (for strict 
ANSI usage) because they are COBOL reserved words. 
They are accepted, however, as legal Implementor 
names, if they are specified without the quotes. 

See the ACCEPT and DISPLAY statements in the 
Procedure Division for processing possible with 
particular implementor-names: "INPUT", "OUTPUT", 
"OUTPUT-C", "TERMINAL", " TERMINAL-C" , and CONSOLE. 

When either "TERMINAL" or "TERMINAL-C" is specified 
as an implementor-name, processing is automatically 
performed on a connected file named TERMINL. 

Files specified In this clause cannot be named in a 
SELECT clause in a File-Control entry, with the 
exception of "INPUT" and "OUTPUT". 



Carriage Control Character as Implementor-Name 

An implementor-name that consists of a single 
carriage control character enclosed in quotation 
marks is a carriage control character associated 
with a mnemonic-name. A reference to the mnemonic- 
name in the ADVANCING phrase of a WRITE statement 
causes that carriage control character to be added 
to the beginning of the line being output. 
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Full carriage control characters are shown in the 
operating system reference manuals. Table 3-1 
shows the more commonly used characters and their 
effects. 

TABLE 3-1. CARRIAGE CONTROL CHARACTERS 



Character 


Effect 


space 

1 



+ 
- 


Single space 

Eject page before print 

Double space 

Triple space 

Suppress space before print 



NOTE 



Refer to appendix F for recommendations on 
the use of collating sequences. 

A system-defined character set and associated 
collating sequence is selected by one of the 
keywords shown in the clause format. The collating 
sequence for the character set NATIVE is redefined 
through the literal phrase of the clause. 

Each of the following system-defined code sets and 
collating sequences is shown in appendix A: 

ASCII-64 

CDC 64-character subset of the 128- 
character code set defined in American 
National Standard X3. 4-1968, Code for 
Information Interchange 



ALPHABET Clause 

The ALPHABET clause (figure 3-7) relates an 
alphabet-name to a collating sequence or to a 
character set. The clause is required in the 
following instances; 

COLLATING SEQUENCE clause is used in an OBJECT- 
COMPUTER paragraph of the Environment Division. 



CDC-64 



CDC 64-character code set for the computers 
on which COBOL 5 is supported 



EBCDIC 



CDC 64-character subset of the 128- 
character code set defined for IBM System 
360/370 computers 



CODE-SET clause is used in an FD entry in the 
Data Division. 



NATIVE 



Format 3 SET statement in used m the Procedure 
Division. 



Can be either CDC-64 or ASCII-64, depending 
on installation option 



COLLATING SEQUENCE clause or a CODE-SET clause 
is used in a SORT statement or a MERGE state- 
ment in the Procedure Division. 

The clause can appear several times to specify 
different character code sets or collating 
sequences for different operations within the 
program. 



STANDARD- 1 

Equivalent to ASCII-64 



UNI 



Collating sequence associated with the 
UNIVAC 1100 series computer 



STANDARD-1 

NATIVE 

CDC-64 

ASCII-64 

EBCDIC 

UNI 



ALPHABET alphabet-name IS 



literal-1 



J THRU \ „ , ^ 

I THROUGH f literal-2 

ALSO literal-3 [, ALSO llteral-4] 



literal -5 



(THRU 



} «• 



t THROUGH f l'teral-6 
ALSO literal-7 [, ALSO literal-8] 



Figure 3-7. ALPHABET Clause Format 
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The character that has the highest ordinal position 
in the program collating sequence named in the 
ALPHABET clause is associated with the figurative 
constant HIGH-VALUE. If more than one character 
has the highest position in the program collating 
sequence, the last character specified Is asso- 
ciated with the figurative constant HIGH-VALUE. 
Likewise, the character that has the lowest 
position (or the first character specified for the 
lowest position) is associated with the figurative 
constant LOW-VALUE. 



Literal Phrase 

The literal phrase of the ALPHABET clause redefines 
the collating sequence for the native character 
set. The first character identified in the phrase 
becomes the lowest position in the collating 
sequence; subsequent characters assume ascending 
contiguous positions. Figurative constants cannot 
be specified in this clause. 



Characters in the native character 
identified in one of two ways: 



set can be 



When the phrase specifies a numeric literal, 
the character is identified as the character 
occupying that position in the native character 
set. For example, the following clause causes 
the 10th, 13th, and 16th characters in the set 
(J, M, and P) to occupy contiguous ascending 
positions in the collating sequence: 

ALPHABET MYALPH 10, 13, 16 



Numeric values in the literal phrase must be 1 
through 64, (64 is the number of characters In 
the native character set). Values greater than 
64 are ignored. The order of characters In the 
native set is shown in the table named Standard 
Character Sets in appendix A. 



The THRU phrase, or its equivalent THROUGH, assigns 
a range of contiguous characters in the native 
character set to ascending positions in the col- 
lating sequence. Contiguous characters, beginning 
with the character Identified by literal-1 and 
ending with the character Identified by literal-2, 
are assigned successive ascending positions. 
Literal-1 and literal-2 can specify characters in 
either ascending or descending order. For example, 
the following clause causes characters M, L, K, J, 
and I to occupy the first five positions in the 
collating sequence, with M in the lowest position: 

■■•Mm^i MYBET "M" THRU "I" 

The ALSO phrase allows more than one character to 
be assigned to the same position in the collating 
sequence. Therefore, if this phrase is specified, 
literal-1, literal-3, and literal-4 are assigned 
the same position in the collating sequence. 

If the ALSO phrase has been specified in the 
program collating sequence, and an OPEN statement 
is executed for an indexed file or a file with 
alternate keys (under Advanced Access Methods 
only) , a CYBER Record Manager error results and the 
run is aborted. Use of the ALSO phrase should be 
avoided since it causes a noticeable degradation in 
execution time. 



CURRENCY SIGN Clause 

The CURRENCY SIGN clause (figure 3-8) specifies a 
character for the currency symbol. In a source 
program, the character specified is accepted in a 
PICTURE clause as a currency symbol In addition to 
the standard currency symbol. During execution, 
only the character specified by this clause is 
produced for edited items. When the clause is 
canitted, only the standard currency symbol is 
accepted in a PICTURE clause. (The standard 
currency symbol is $ or #, depending on the 
character set in use.) 



When the phrase specifies a nonnumeric literal, 
the character is identified directly. For 
example, the following clause causes characters 
J, M, and P to occupy contiguous ascending 
positions in the collating sequence: 

;ttf=iA^ MYALPH "J", "M". "P" 



Each character can be specified as its own 
nonnumeric literal; alternatively, characters 
in contiguous ascending collating sequence 
positions can be specified as a single nonnu- 
meric literal. For example, the following 
clause causes characters J, M, and P to occupy 
contiguous ascending positions in the collating 
sequence : 



CURRENCY SIGN IS literal 



ALPHABET MYALPH "JMP" 



Figure 3-8. CURRENCY SIGN Clause Format 



In the clause, the literal must specify a single 
nonnumeric character. Any character can be speci- 
fied except PICTURE clause editing symbols or the 
characters: CDLR)("=or space. 



DECIMAL-POINT Clause 

The DECIMAL-POINT clause (figure 3-9) interchanges 
the functions of the comma and the period in the 
character-string of the PICTURE and in numeric 
literals. The effects of this clause are discussed 
with the PICTURE clause in the Data Division. 



No character can be specified more than once In the 
literal phrase. The order in which literals appear 
in the literal phrase specifies the ordinal posi- 
tions of the characters in ascending sequence. The 
first character identified has the lowest position 
and is associated with the figurative constant 
LOW-VALUE. 



DECIMAL-POINT IS COMMA 



Figure 3-9. DECIMAL-POINT Clause Format 
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QUOTE Clause 

The QUOTE IS APOSTROPHE clause (figure 3-10) 
interchanges the functions of the quote mark (") 
and the apostrophe (')• When the clause is 
specified, the apostrophe character is recognized 
in the source program as the delimiter of nonnu- 
meric literals and In the executing program as the 
value of the figurative-constant QUOTE. The clause 
must precede any apostrophe used as a quote mark in 
a program. 



(QUOTE IS t 

1 QUOTES ARE f APOSTROPHE 



Figure 3-10. QUOTE Clause Format 

The COBOL compiler call has a similar parameter. 
Use of the clause is discussed In section 12 with 
the AFO parameter. 



SIGN CONTROL Clause 

The SIGN CONTROL clause (figure 3-11) specifies the 
default position and mode of representation of the 
operational sign. It is discussed with the SIGN 
clause of the Data Description entry in the Data 
Division. 



SIGN CONTROL IS {tl^Sci 



[ SEPARATE CHARACTER] 



Figure 3-11. SIGN CONTROL Clause Format 



SUB-SCHEMA Clause 

The SUB-SCHEMA clause specifies the name of the 
subschema that lias descriptions of data in a data 
base. See section 16, Subschema Facility. 



SWITCH-n Clause 

The SWITCH-n clause (figure 3-12) associates the ON 
and OFF status of an external or Internal software 
switch with: 



A condition-name 
statement. 



for reference in an IF 



A mnemonic-name for reference In a format 4 SET 
statement. 



To comply with strict ANSI usage, the clause, when 
specified, must immediately follow an implementor- 
name clause if one is present. If one is not 
present, the SWlTCH-n clause must be the first 
clause in the paragraph. 

The SWITCH-n clause can appear as often as 
necessary in a source program. The same condition- 
name, however, should not appear In more than one 
SWITCH-n clause, because the name cannot legally be 
qualified in the Procedure Division. 

The switches that can be specified in the clause 
are SWITCH-1 through SWITCH-126. SWITCH-6 has 
special meaning for debugging, as discussed in 
section 10, Debugging Aids. SWITCH-1 through 
SWITCH-6 are equivalent to the external switches 1 
through 6 that can be defined for each job in the 
system. SWITCH-7 through SWITCH-126 reference 
Internal COBOL switches that are set to the OFF 
status prior to the execution of a COBOL program. 

Prior to program execution, the external switches 
can be set on or off by control statements in the 
Job or by commands from a terminal. The central 
site operator also has a command that can change 
external switch setting. 

During program execution, the status of an external 
or internal switch can be altered by a format 4 SET 
statement that references mnemonic-name. Altera- 
tion of an external switch is global to a job. An 
internal switch is local to a job step. 

In the clause, mnemonic-name is the name by which 
the switch is referenced within the program. If 
the switch is not to be referenced in a format 4 
SET statement , mnemonic-name is not required . 

Condition-name- 1 and condition-name-2 are user- 
defined words. They represent, respectively, the 
condition- name associated with the ON status and 
OFF status for a switch. Condition-name is used to 
reference the status of a switch set externally to 
the program or within the program. 



INPUT-OUTPUT SECTION 

The Input-Output Section specifies Information 
needed to control transmission and handling of data 
between a storage device and the executing program. 
The section consists of two paragraphs, FILE-CONTROL 
and I-O-CONTROL, both of which can be omite^a.. If 
the entire section is omitted, no file input or 
output is possible, except through ACCEPT and 
DISPLAY statements. 



SWITCH-n 



,„ Ton STATUS [S condition-name-1 1 

IS mnemonic-name [oFF STATUS !S conditlon-name-2 J 

ON STATUS IS condition-name-1 [, OFF STATUS \S condition-name-2] 
OFF STATUS IS condition-name-2 [, ON STATUS IS condition-name-1] 



Figure 3-12. SWITCH-n Clause Format 
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The section header is : 

INPUT-OUTPUT SECTION. 

The header must appear on a separate line, beginning 
In area A. The separator period must terminate the 
section header. A header can appear without 
following paragraphs. 



FILE-CONTROL PARAGRAPH 

The FILE-CONTROL paragraph contains File-Control 
entries that name each file referenced In the 
program and specify other file-related informa- 
tion. The information specified in a File-Control 
entry depends on the file organization. 

The organization of a file is established at the 
time the file is created and cannot be subsequently 
changed. All references to an established file 
must specify, either implicitly or explicitly, the 
correct file organization. The file organizations 
are: 

Sequential 

Relative 

Indexed 

Direct 

Actual-key 

Word-address 

All file organizations, except relative, are 
implemented according to the CYBER Record Manager 
file organizations of similar names. Relative 
files are Implemented through word-addressable 
files with fixed-length records. The CYBER Record 
Manager manuals, in particular the user guides, 
present full discussions of the physical and 
logical structures of the different organizations. 
Consult these manuals for Information about the 
parameters of the USE clause or the FILE control 
statement, alternative means of specifying file 
structure or processing, and utilities available 
for specific file organizations. 

All of the file organizations, except sequential, 
have a unique key associated with each record in 
the file: system interpretation of the key item 
distinguishes the different organizations. Use of 
mass storage, processing available, and access time 
differ for each organization. Table 3-2 contrasts 
some organization characteristics. All except 
sequential files must reside on rotating mass 
storage. 

NOTE 

Refer to appendix F for recommendations on 
the use of file organizations. 



The clauses in the File-Control entry are specified 
in alphabetical order after the discussions of the 
different file organizations. SELECT must be the 
first clause; other clauses can appear in any order 
with the exception of the RELATIVE KEY clause. 



sequential File Organization 



Sequential files can exist on tape, cards, or mass 
storage. Files connected to a terminal must be 
sequential. The location of any given file record 
is immediately following the previously written 
record and immediately before the subsequently 
written record. The order in which records are 
referenced in WRITE statements determines the order 
in which they can be retrieved by READ statements. 

Records in the file can be fixed or varying length 
according to the Record Description entries for the 
file. 

Sequential files offer processing advantages when 
all file records are always processed. The program 
is responsible for any ordering of the file. 

The skeleton of a File-Control entry for a sequen- 
tial file is shown in figure 3-13. 



SELECT clause 

[; ACCESS MODE IS SEQUENTIAL] 
; ASSIGN clause 
[; FILE STATUS clause] 
[; ORGANIZATION IS SEQUENTIAL] 
[; RESERVE clause] 



Figure 3-13. Sequential Organization File-Control 
Entry Skeleton 



Relative File Organization 

A record key for a relative file is an integer 
representing the ordinal of the record in the 
file. Key value 22 represents the 22nd record in 
the file; key value 5678 represents the 5678th 
record in the file, and so forth. The RELATIVE KEY 
clause defines the key item for the file. 



Since all records in the file have the same length, 
a record with any given key value has a pre- 
determined location in the file. (If the Record 
Description entries specify variable length 
records, the system uses the length of the largest 
record for allocating file space for each record.) 
If the first record written to the file has a value 
of 890, the file on mass storage has,' at that time, 
enough storage space to accommodate records with 
key values 1 through 889 also. The system does not 
retrieve Information from an ordinal position 
unless a valid record has previously been written 
to that position. 



Relative files have a fixed access time. Only one 
mass storage access Is required by the system to 
return a record to a program. Unused space exists 
on mass storage when key values for relative file 
records are not contiguous and do not begin with 
record ordinal 1. 
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TABLE 3-2. FILE ORGANIZATION SUMMARY 



Characteristic 


File Organization 


Sequential 


Indexed 


Direct 


Actual-Key 


Relative 


Word-Address 


File 
residence 


Mass storage 
or tape 


Mass storage 


Mass storage 


Mass storage 


Mass storage 


Mass storage 


Record 
lengths 


Fixed or 
variable 


Fixed or 
variable 


Fixed or 
variable 


Fixed or 
variable 


Fixed 


Fixed or 
variable 


Key 
contents 


None 


Integer, 
decimal , 
character 
string 


Integer, 
decimal, 
character 
string 


Block and 
slot number 


Record number 
ordinal 


Starting 
word number 


Alternate 
key 


Not appli- 
cable 


Yes 


Yes 


Yes 


No 


No 


Physical file 
structure 


Contiguous 
records; 
blocked on 
tape 


Index blocks, 
data blocks; 
padding in 
blocks but no 
record gaps 


Data blocks 
preallocated 


Data blocks 
continuous 
record slots 


Continuous 
record slots 


Continuous 
word slots 


Logical file 
structure 


Continuous 
records; 
blocked on 
tape 


Sorted by 
ascending 
key value 


Random 
according to 
hashed key 
value 


Sorted by 
block and 
record slot 


Sorted by 

record 

ordinal 


Record at 
word address 


Updating 
possible 


Add to end, 
replace on 
mass storage 


Replace, 

delete, 

insert 


Replace, 

delete, 

insert 


Replace, 

delete, 

insert 


Replace, 

delete, 

insert 


Replace, 
insert 


Sequential 
access 


By position 


Sorted 


Unsorted 


Sorted by 
block 


Sorted by 

ordinal 


By 
position 


Random access 


None 


By key 


By key 


By key 


By key 


By key 


Utilities 
aval lable 


COPY, copy; 
FORM, restruc- 
ture 


COPY, copy; 
FORM, restruc- 
ture; MIPGEN, 
add or delete 
alternate 
keys; FLBLOK, 
select block 
size; FLSTAT, 
statistics 


COPY, copy; 
FORM, restruc- 
ture; MIPGEN, 
add or delete 
alternate 
keys; CREATE, 
creation; 
KYAN, key 
analysis 


COPY, copy; 
FORM, restruc- 
ture; MIPGEN, 
add or delete 
alternate 
keys 


COPY, copy 


COPYBR, 
copy 



The skeleton of a File-Control entry for a relative 
file is shown in figure 3-14. 



Indexed File Organization 

All files created under the NOS 2 operating system 
are extended files. If initial indexed sequential 
files are used on a NOS 2 system or if ORG=OLD is 
specified in a USE clause, the program aborts. 

Records in an Indexed file can be fixed or varying 
length in any combination. Each record has a 
unique primary key and might have alternate record 
keys within it. The primary key item is defined by 
the RECORD KEY clause; alternate record key items 
are defined by ALTERNATE RECORD KEY clauses. 



SELECT crause 

[[; ACCESS MODE clause] 

[, RELATIVE KEY clause]] 
; ASSIGN clause 
[; FILE STATUS clause] 
; ORGANIZATION IS RELATIVE 
[; RESERVE clause] 
[; USE clause] . 



Figure 3-14. Relative Organization File-Control 
Entry Skeleton 
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A primary key can be a string of characters or a 
number with or without a decimal point or sign. 
Usually, a primary key value would be a name or 
number that has logical meaning to the program or 
programmer. The system uses the numeric value or 
collating sequence value of the primary key to 
determine the location of the record in the file: 
records always are in physical and logical order by 
ascending primary key values. When an indexed file 
is read sequentially from beginning to end, all 
records are retrieved in sorted order according to 
primary key value. 



The first record written to the file can have any 
primary key value. The system places the next 
record written before or after the first record as 
necessary to maintain the records in sorted order. 
Storage for the file is not preallocated; rather a 
data block is created to hold records as the need 
arises. Overflow records, as such, do not exist. 
The system splits an existing data block when it is 
full, so that the physical and logical ordering is 
always maintained. The size of a data block is 
established by the BLOCK CONTAINS clause of the 
Data Division. 



In addition to data blocks, indexed files have 
index blocks created and maintained by the system 
to hold information about data block location and 
contents. Indexes are arranged in levels: as long 
as the number of index levels does not Increase, 
record access time does not increase when the 
number of records in the file increases. 



IKrett file Oiganiiatian 

All riles created under the NOS 2 operating sysleqi 
are extended tiles. It initial direct liies aru 
uaed on a NOS I aysteo or if OttG=OLD is apecitied 
in a USfi r.lause, the program aborts. 

Uccorda Lii .1 direct file can be fixt-d or varying 
length In any combination. Kach record has a 
unique primary key and might have alternate record 
keys within it. The primary key item is defined by 
the RECORD KUY clause; alternate record k<;y Items 
arc defined by ALTERNATE RECORD KEY clautses. 

A primary x.ey lor a direct file can be any data 
item. Usual Ly, a key value would be a n.une or 
number that has logical meaning to the program or 
progrdramer. The system, however, considers the key 
value to represent u string of blt» that must »e 
hashed to the number ot a home block in the file. 
'I'ht^ record location is determined by the liashed key, 

Hasliing as the process of manipulatiuij the key 
riintent<! drcorJinji to some constant furmula. Ihe 
system supplies a hushing routine, although the 
programmer lias ihe option of supplying hiu own 
hashing routine through the USE fUK llASHINC 
declarative. Ihe ^wiii hdshing routine .oust be used 
r'ur ill I ri^.cords tor the lite ot a tile. A key 
analysis utility i-r, .jval table to determine the 
dist rlbutiim of records in home blocks tor par- 
liculdr key valui."). IThe utility is documented in 
the AAM refereuce manual. J An optimal hashing 
routine distributes all records evenly among home 
blocks !io that no i/Vurllow recor.ls need exl.st. 



Alternate record keys can be defined for indexed 
files. The system indexes the alternate record 
keys on a separate file that must be preserved by 
the job that creates or updates the file. Only the 
primary key determines record position in the data 
blocks. 



Indexed files offer advantages for processing large 
files that are to be accessed randomly by key as 
well as sequentially in sorted order. They can be 
structured so that large inserts do not increase 
the time needed to access a file record. When an 
indexed file is being created, the sequential 
access mode should be . used for most efficient 
processing. 

The File-Control entry skeleton for an indexed file 
is shown in figure 3-15. 



SELECT clause 



ACCESS MODE clause] 
[; ALTERNATE RECORD KEY clause] 

ASSIGN clause 
[; FILE STATUS clause] 

ORGANIZATION IS INDEXED 

RECORD KEY clause 



Hume blocks >ire preallocated storage, with thu 
number oE blocks, (.■stablit.hed by the BLOLK COUNT : 
cl.iuht' that Ls required in the Filfc-tontrul entry. 
The size ot ail liumc iilocks is the same and is 
established by a BLOCK CONTAINS clause in the KU 
entry in the Data Division. When a primary key 
value li.ishes to a home block that Is filled, an 
overflow record exists. Overilow records are 
accommodated in another home block or in an 
overflow block, witn iho syblcra following AAM 
parameters to select tnc block. iJverrlow records 
require anothur mass storage .iccesB betore they can 
be returned to tht- program. 

Direct tiles oftcr processing advantages when 
records ary always accessed randomly oy key. The 
tile cdil be read sn'quential ly trom beginning to 
end, but the records are not sorted by key. Direct 
lik'S aru useful for rapid access to large Itles. 

Altcrnalu record keys can be dctined for direct 
files. The system indexes the alternate record 
keys on a separate filo that must be preserved by 
the Job that creates or updates the lilc ol liumu 
blocks. Only the primary key deuermliies the hoiae 
block the record occupies. 

The skeleton of a I'ilc-<;nntf ul entry for a direct 
ille is shown in figure 3-16. 



Actual-Key File Organization 



Figure 3-15. Indexed Organization File-Control 
Entry Skeleton 



All f ileip created under the NOS 2 operating system 
are extended £iles. If initial actual-key tiles 
are used on a NOS 2 system or If ORG=OLD is speci- 
fied in d use clause, the program aborts. 
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SELECT clause 


[.- ACCESS MODE nlaiise] 


[; ALTCRNATr RECORD KEY cUiisp] 


; ASSIGN clans." 


; BLOCK COUNT clause 


1; FILE STATUS cLiusel 


; ORGANIZATION IS DIRECT 


, RECORD KEY cIdusR 


1. USE claiibe . 



I'he skeleton of a File-Control entry 
actual-key tile is shown in figure !)-I7. 



Figure 3-16. Direct Organization File-Control 
Entry Skeleton 

NOTK 

Bfcau^ie ot antiv-.ipated flianses in triis 
product, iisf -jf .u'tniil -'Kt'V rilt-H i-; iiur 
recnmmiMiik'-l. Sl-c appendix '/ tor snitlsH nf-s, 

\y witli indexi?.! infl I'reft riles, roiiirns in 
sctiMl-kny I'i'.is !-.in be lixed ur varying iciigtli. 
Erirli rii-'ird '!<!-; .i utii'I'il' prinar." key and mihht have 
ilr.Hrn.ili- Tt'iiwl ki-y- withi i I!, l-jr u-LiWil-kL'y 
files, Ll'f |)i i.n-ir\ kt-y Is .'i rci'^ird immbcr '*l IcLi AAM 
converts to thn htor.irfe lonrion ')F r'l:? r"ii)r.l. 
"rlm.iry key values do not h.ive lo^ii'.il .npanins . hut 
rather .ire thf phvKici! loi-jtlon 'jl Lhc toi-ord. 
"iio primary key item i.s derii-.£:d hv tie. KECUKD .<>"V 
.■Ijust;; jilurnate record key items ,ir>- liHfi.iod 'iv 
AI.TKRNMT. HKCOKl) KEY -isiises. Tn the ii.Sf ■■. 
ictiial-key riles, the data should match the PiCTlIR-; 
i-laii;,o spccit Lcition ot the HKCOKi; KKY clause. 
D.it;i oiiLriiil'.' lilt' spi'cii L,--Ttion ran cause 
unpredictable n-sulls. 

l.-jch d.ilj liin-ii '-..IS a tixed number dC recuru 
slots. The .-i-.'f ■if i 'n' nalj 'jlock-j ,ind uw number 
ot slots per hl.uk iro esf.ihl Ishcd In Lhc Data 
l)ivi^i^)n KIJ enlr> wi;h Lriy RhCOKl) clause aiul iiLilCK 
CONTAINS ('lausf'. Since recur i] U-nKtiis ca'i ^^lrv, 
overflow reords c.in p»isl whon j (Mtu block based 
on average recnrd s.ize r.ilcul.if in is is full, 'Ihe 
systvjm pcrlornis ill overflow recora liandlin^ 
1 nteniil Iv, bo Lli-il Lhc program -ilways ac i- f s -. os 
records by the prlmar/ key. 

''hi.- prrjjjrara o.-i'i, hut ni-ed i.Tt, .;i'ri r itt ;jriinar/ 
Vuvti when 3 tile is Ving C'reatpil or ri-c:jrd'j irt.- 
lifiriR aflih'fi I '.1 an ^'/lis'-iny lile. Lr the key item 
has a zero value rfhi-n the record is written, the 
lysii-m Ki-ii'r.iics .i '.ey, wri Le--; Lhe record, and 
returns the key value to Ihf ki'v item. The projiram 
is responsible lor preservioj; t!io ["'iniary key 
value-s returned to the projjram for fncurt' recor-d 
access by primary key value. 

'ihe system performs no Indenting of primary keys. i\ 
usv'.r applic.iLion might use actual-key riles ii 
conjunction with an indexr-d flic to create an 
alternate key access capability when tlie system 
supplied alternate key capability is not useil. 

Alternate record keys can he defined lor actual-key 
files. The system inrlexes tlie alternate record 
keys on a separate file that must be preserved by 
Lhe job that creates or updates the file. Alter- 
nate record keys do not specify the record loca- 
tion; they can be Items with logical meaning to the 
program or programmer. 



SELECT clause 



ACCESS MODE clause] 

ALTERNATE RECORD KEY clause] 

ASSIGN clause 

FILE STATUS clause] 

ORGANIZATION IS ACTUAL-KEY 

RECORD KEY clause 

USE clause] . 



Figure 3-17. Actual-Key Organization 
File-Control Entry Skeleton 



AcLii.iL-K.tV .■'ii-j 



i ormat 



Vdlue-i 'js.-i.jiicd I) actuai-key IlIi. primary keys 
ri-|:ri. ;>mL .1 record .•.j-nbi r, .'lAM coiwi'rts Llic r(Mc>r:l 
•.iiii"l:er t .J tjif storage liicatiun .tt the record, «!irtn 
CihiiK L-ieciird M.i.nc;i-.r is '■:u;iplyiiij5 the kpys, it 
rtiuri. h.criui'iil i .1 L 'icoro iu:r<lii'ri to L hi' pri.ii.jry 
.s.ev. 'ilii' iisiT iieed not he coi-.cftriieci with Lilock and 
■.lor iiiiin'ie.rs. '.»rie.i siipplyiii); trie Key.i, the. ii.ser 
nu.st rt member l.> create nej nlocus in order. iror 
i.i'.i nice, 'jIocv l; i-annol be cre.-.tea netore hlocn 
L. \1 I rt-corii p)S".tlunS iifiid not oe lilLed, 

ii)we'.'-r , hi'tiire the next nLuck i.> cro.nted. 



Word-Address File Organization 

A kev Lor a record in a wora-address lile is the 
nir.iiniT jf ! hi- jor ! in Llic lli.- .iL wliLcli Lite record 
begi.is. Ihisi' I I Le-. -.ir:' consiiiered lo be u sot ol 
ci)iUifuou'> 'iO-"jil. IU-cn;ir,icier-per-rfor ». .;oras 
i.uiirliGrud 1 tvim i tnruu^^h Lhe end oi the: Lile. A key 
value ot -tj/ caii.'»c>A a record to be rear, or written 
! r ijn wjrii -I'll ttirougii Ljic record i-nd, 'I lU' sysLt-m 
re 1 I.-. -Jl "rfrir^.y '-jL.-) rt i ■■;', -it Ehc^ uord sp.icified by 
Liii '!"y; LL au'.'h :•,!) checKiui; Lo deLer..Liic li valid 
i li ormaLion ...yij>Ls aL ihal rjcaLi.jii, lhe '^dKU- 
AlJJbuISh .<EY clause di;LiiiGH L'lii key Item. 



All records need not he Liie saint ieuKLli, but 1 ixe(.i 
li--ri)',t.i '•ec.jrjf. ui icr case .jf u(idre.s.s cilciil .itionf> 
ill Lie iir.ifjr.im, lhe record type far 'Word-address 
files is always U (undciiued). The user is 
reopoTisible for •jeLtLng Llie record length before 
reading or writi'ig any variable luiiaLh reeorat.. 
.^fter a read or write operation, t:ie -word-address 
key ia apdated t.) the .lext .svalLable wore by usint^ 
the provided record length and Ltie la!>t key. 



If the first record written to the lile has a value 
of 4'ifj7 , the I'ile on mas.s .-iCorage has, at that 
time, a length oi at least ^'ib? words plus tne 
length of Lhe current record. L'he program is 
responsible lor deLermining the validity ot any 
delta re.-id and for .specifying Lhe correct recoru 
boundaries. 
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A <r :- I'M ■• !!.■>. Ill i.mM .1 I :. ■■■ 1 J . ._ '.li.:!! 

■I'l'll- 1" !■■ ■. I II.Jl! ■'■' . I'lf lIl-'T JTITX ll.l!.' 

. ■■ . .Ill ■ J •*: j\ r III ■« ■ . ' I I I. 'i I : \' 1 1- ' ! - 
I i-ij'" '■■I > II',. .'lii I'lit— 1 I'lLr-i 1 II* ri ••-.■I '.'i i i-t 
I .i Wi,r.1-i.l :i" 'il ■ 1^ .:. iv.'i Im i l.- i- ^ t-i«. 



RANDOM 



SELECT clause 

I: ACCESS MODE clause] 

. ASSIGN clduse 
I, FILE STATUS clause! 

; ORGANIZATION IS WORD-ADDRESS 
:. RESERVE clause] 
L. USE clause! 

; WORD-AnnRESS KEY clause . 



Figutp 3-18. Worcl-Acldiess Orqaniiintiuii 
Filu Control Entry SkelQton 



ACCESS MODE Clause 

I The ACCESS MODE clause (figure 3-19) specifies the 
manner in which records are to be operated upon 
within the system. If the clause is omitted, 
ACCESS IS SEQUENTIAL is assumed. 



ACCESS MODE IS 



SEQUENTIAL 

RANDOM 

DYNAMIC 



Figure 3-19. ACCESS MODE Clause Format 

For relative files, the ACCESS MODE clause must 
immediately precede any RELATIVE KEY clause. 

For files with sequential organization, only 
SEQUENTIAL can be specified. For files being 
created with indexed organization, SEQUENTIAL 
should be specified for most efficient processing. 
For all other organizations, access mode can be 
SEQUENTIAL, RANDOM, or DYNAMIC. 

SEQUENTIAL 

Allows access by sequential position only. 



Allows access by key values only. The 
programmer controls the sequence in which 
records are accessed by specifying the key 
value for the record needed. 



DYNAMIC 



Allows access by sequential position and by 
key values intermixed. The programmer 
changes from sequential access to random 
access at will by using appropriate formats 
of the input-output statements. 



The ACCESS MODE clause, in conjunction with the 
OPEN statement of the Procedure Division, estab- 
lishes the input-output statements that can be used 
for a given file. Table 3-3 shows ACCESS MODE 
clause and OPEN statement interaction. 



ALTERNATE RECORD KEY Clause 

The ALTERNATE RECORD KEY clause (figure 3-20) | 
specifies a key item that defines an alternate 
record key for Indexed, direct, or actual-key 
fLLes. The number and description of alternate 
record keys can change trum prugrdm Ln program when 
thC' MlPUtN utility of AAM is used with AAM tile 
urganlzatlonsi The clause mu.st be repe.ited for 
each dlLeriiate record key. As many as 25j 
alternate record keys can be defined for a given 
file. 



Data-name-1 must specify a data item defined within 
a Record Description entry for the file. The 
relative location of the item within the record and 
the item description must not change for the life 
of the file. 



An item of category alphanumeric or numeric can be 
specified as an alternate record key; that is, the 
item must be described by a PICTURE clause con- 
taining at least one -S. or with a PICTURE clause 
containing a combination of the symbols 9, S, V, 
and P, If data-name-l specifies an elementary 
numcrio item, its piclurc mubL not contain an S 
unlQ.<js the Iteii Ir also described by USAGE IS 
COMP-1, Alternate keys cannot exceed 255 charac- 
ters in length, or, if numeric, a numeric value 
that can be stored in a single memory word. 



ALTERNATE RECORD KEY IS fl.it.i-M.imii-1 [wiTH DUPLICATES !ASCENDING|] 
OMITTED 1 



• USE 



WHEN d.itd-n.ime-2 CONTAINS CHARACTER FROM literal 



[ 

[(SPACES I i 
OMITTED iVHEN KEY IS iJeros" i 



lirdl 



Figure 3-20. ALTERNATE RECORD KEY Clause Format 
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TABLE 3-3. INPUT-OUTPUT STATEMENTS ALLOWED BY ACCESS MODE AND OPEN MODE 



File Access Mode 


Open Mode 


Sequential 


Relative 


Indexed, Direct, 
or Actual-Key 


Word-Address 


I 





I-O 


E 


I 





I-O 


I 





I-O 


I 





I-O 


Sequential READ 


X 




X 




X 




X 


X 




X 


X 




X 


WRITE 




X 




X 




X 






X 






X 




REWRITE 






X 








X 






X 








START 










X 




X 


X 




X 








DELETE 














X 






X 








Random READ 










X 




X 


X 




X 


X 


X 


X 
X 


WRITE 












X 


X 




X 


X 




REWRITE 












X 






X 










START 




























DELETE 














X 






X 








Dynamic READ 










X 




X 


X 




X 


X 




X 


WRITE 












X 


X 




X 


X 




X 


X 


REWRITE 














X 






X 








START 










X 




X 


X 




X 








DELETE 














X 






X 








Legend: 

I INPUT specified in OPEN statement. 

OUTPUT specified in OPEN statement. 

I-O I-O specified in OPEN statement. 

E EXTEND specified in OPEN statement. 

X Statement is allowed for organization and open mode. 

blank Statement is not allowed for organization and open mode. 



Data-nane-l fan refarfiife nn i 1 fm .-I o hc" r 1 h i-d »'itli 
the OCCURS rlausis; howetf<»r, .i '?iihsi-rl pt mint n-it 'it: 
specified. Such an item is called a repe.iting 
group, whether or not it is a group item. This 
faciLLty allows tiif jlteriuiLiJ k<iy in a record to 
tnvi; nori.' than out' valuf. '.vhen thi; racord is 
written, each unique occurrence of the repeating 
group becomes an al tern.ira Iwv value for the record. 

When a RlvMI or START -st;! Ti'sppiiI- specif l..'S tlic 
repeating jroup alternate key as the key of rjf- 
orenci'. , Lho record area value that Is used for 
comparison is the first occurrence of the repeating 
group. This value need not be the first occurrence 



of LhH. repeating Si"'^up i'^ t'.if recoru bcin^; ri-ail or 
ii r'rd record at wliich the tile is posiLionod; IL 
can be -jny occurrence of i he .il leriMti-" key. See 
the Al'.W anj jrAR'i sLiLnmeiiL"! in luctlun T. 

Data-aame-1 cannot reference an item whose leftmost 
character position corresponds to the leftmost 
character position of an item named in the RECORD 
KEY clause or of any other data-name item in an 
ALTERNATE RECORD KEY clause associated with this 
file; that is, an alternate record key cannot begin 
in the same location as the primary key or any 
other alternate record key. I'l noit-ANSi usa^e, 
■ttoweyer,, '■ iin"''alie,rttat'«; reftor-i itey can begi.i in the 
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same rhdracter position as tlie primary key or 
another a1 teni.ue rucord key If the koys ure imt 
tin? same len^jth; that is, no two kt-ys ran di^fine 
exactly thi' sami- stornKe lorattun. 



DUPLICATES Phrase 



The DUPLICATES phrase specifies that more than one 
record can contain the same value for a specific 
alternate record key. If the DUPLICATES option of 
the ALTERNATE RECORD KEY clause is not specified, 
alternate key values must be different for a 
specific key for each record in the file. If not, 
a duplicate value encountered on a write causes 
execution of the INVALID KEY clause. 

The order of primary key values within a set of 
duplicates depends on the presence or absence of 
the ASCENDING option of the DUPLICATES phrase. The 
ASCENDING option specifies that records are to be 
returned in ascending primary key order when 
records within a set of duplicates are read 
sequentially. The ascending order is established 
by the collating sequence in effect for alpha- 
numeric keys. If the ASCENDING option is omitted, 
primary key values associated with a given alter- 
nate key value are maintained in the order in which 
they were written to the file (first in, first 
out). Refer to the COBOL 5 user's guide for fur- 
ther discussion on index file structure. 

The ASCENDING option must be specified i£ the 
alternaLu key is within a repeating group and the 
flic organization is the extended AAM format. 
Performance in file updating is considerably 
enhanced when ASCENDING is spec i find; however, its 
usage Is non-ANSI. 



.loter. If the control character indicated by 
daLa-name-:i is not prusent in the literal, the k*.-y 
is Included in tne index. Conversely, Che CMITTED 
WHEN CONI'AIN'S phrase specifies th.il An alternate 
record key Is not to be included in the alternate 
key index it iiata-narae-2 specifies a cliaracter 
Included in tlie literji. U the control character 
Indicated by ddla-name-2 is not pri;Kt;nt in the 
literal, the key is Included in Llii' index. The 
item roteronced by rlata-name-i must specify a data 
itom defined within the tixed length [lortion of Lho 
Record Description entry tor the file. The item 
must be described as alphanuiDer ic and must be one. 
character in Icngtii. Data-name-^ can appear in 
more tluin jino ALTERNATE RECORD KEY clause for a 
LLLe as lung ds the s.ime data-name-^ is used i.i 
each reference. The literal must be one to 3b 
ctmractert. in 1en);th. Only the characters A tiiruugh 
Z and digits through 9 can be used. No character 
can appear more than once wl Lhin the literal. 

The OMITTEO WHEN KEY phrase is used to spucily that 
a key is not to iie incltided in tlie .iLternale key 
index it it contains all spaces and luis .i usage of 
DISPLAY or it it contains all zeros .mJ h^s a usage 
(if COMP-l or COMP-2. 

Wlien both the USE WHEN and OMITTED WHKN KEY phrases 
are used in an Al.rERNATt, RECORD KEY clause, the 
condiLlon specified in the OMITTED WHEN KliY phrase 
lius precedence over the condition specified in tlie 
USE WHEN phrase. 



ASSIGN Clause 

The ASSIGN clause (figure 3-21) specifies the name | 
by which the operating system identifies the file. 
This clause is required for all files. 



OMITTED/US E Phrases 

The OMITTED/USE WHEN and the OMITTED WHEN KEY 
phrases define specific condicioas that determine 
wlien an alternate record key Is to be included or 
is not to be included in the alternate key index. 
Alternati" key v/alues that -ire not necessarily 
incliuled in the alternate key Index are called 
sparse keys. Refer to the COBOL "i user's guide for 
a further discussion of sparse keys. 

Tlio OMITTEIJ/USE WHEN and the OMITTED WHEN KEY 
phrases can be used to reduce storage space and 
procesRJiig time as follows: 

Keys that are never used to access data rcc!)rds 
can be excluded. These keys arc the result of 
sparse control characters. 

Keys that have values of blank or zero are 
excluded. These keys are the result of null 
suppression. 

Both phrases apply to extended AAM file organi- 
zations only; they are not applicable to initial 
AAM file organizations. When neither phrase is 
included, all alternate key values arc lurluiied in 
the alternate key index. 

The USE WHEN CONTAINS phrast- spe.-i fles that a.i 
alternate record kev is to be Included in the 
alternate key index it data-name-2 contains a 
character included in the Literal. Data-name-2 is 
part of the data record and is the control char- 



ASSIGN TO implementor-name-l 
[, implementor-name-2] . . . 



Figure 3-21. ASSIGN Clause Format 

Implementor-name-l specifies the name by which the 
operating system identifies the file-name used in 
the SELECT clause. It must be one through seven 
letters or digits beginning with a letter. 
Implementor-name-l is the logical file name 
parameter used on control statements for functions 
such as permanent file catalog or magnetic tape 
request. Files can be assigned special dis- 
positions and other characteristics by using 
implementor-names that correspond to the special- 
named files of the operating system. See the 
operating system reference manual for information 
about files with logical file names such as INPUT, 
OUTPUT, PUNCH, PUNCHB, P80C, and P8. 

Since INPUT and OUTPUT are reserved words, they 
should be enclosed in quotes if they are used as 
impl ementor-naraes (.tor strict ANSI usage). how- 
ever, tiiey are accepted as legal implementor-names 
if ;hey are specified without the quotes. "ui/ 
implement or- name that duplicates the file-name or 
that duplicates any other data-name in the program 
must be enclosed in quotes. See the ACCEFf and 
DISPLAY statements for information about 

implementor-names associated with the terminal or 
operator console. 
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Implementor- name-2 Is the logical file name of the 
index file for an indexed, direct, or actual-key 
file that has alternate record keys. It must be 
one through seven letters or digits beginning with 
a letter. The job is responsible for preserving 
the index file between jobs and for making it 
available on mass storage to any job that updates 
the file specified by file-name or to any job that 
reads the file specified by file-narae using alter- 
nate record keys. Implementor^name-2 is the 
logical file name used on control statements for 
permanent file functions. 

Any additional implementor-names are checked for 
syntax, but they do not affect program execution. 



The data-name spec Lf led must be a two-character 
alphanumeric category data item that is defined in 
other than the Kile Section or Report Section. If 
the;, ;i'i'le,-,;i's,' ,tfn' 'KxtKrnal' file, data-name must be 
defirveti'' in' the Coramoti-Stori^e - Saetlon.' Status 
values that might be returned and their meanings 
are in table 3-4. 

The use of FILE STATUS for detection of errors or 
filv; position i.s liaiti-d l^jr J;iL;i uir.-,i.: files. CDCS 
errors are not rotloclfd in thK KlLli STATUb d.itti 
itom; however, CDiJS i]Mliit.iins lacii i L i.;s lor 
checking file status. Refer to dection Ih, Sub- 
schema Facility, for further information. 



More than one file can be assigned to the same 
implementoi^name and the same implementor-name can 
be assigned in a main program and a subprogram. 
Only one of the files assigned to an implementor^ 
name can be open at a given time, however. 



AT END. Status 10 

The at-end condition might occur as a result of the 
execution of a READ statement. The condition 
Indicates the end of a file. 



BLOCK COUNT Clause 

I The BLOCK COUNT clause (figure 3-22) specifies cha 
number of home blocks to be allocated when a fLli- 
with direct organiz.ic Ion is being crt-ated. 'Hie 
clause is required when the clause ORGANIZATION TS 
DIRECT appears and the file in opened tor OUTPUT. 
It ts ignored at all other times. 



\ integer t 
BLOQKCOUNTIslda^n,^} 



Figure 3-22. BLOCK COUNT Clause Format 

The Hiata Item referenced by data-name or Che 
Integer must specify nn unsigned integer. The 
value defines the niimber of home blocks In the 
file. During processing, records are assigned to 
one of the blocks fay a user-supplied or systenr- 
supplied hashing algorithm. When the system 
hashing routine is used, host rt-.sulcs are obtained 
if the number of blocks Is a prime number. 



FILE STATUS Clause 

I The FILE STATUS clause (figure 3-23) specifies a 
data item in which the system returns a status code 
during execution of the statements: CLOSE, DELETE, 
OPEN, READ, REWRITE, START, and WRITE. The program 
can interrogate the value of a FILE STATUS data 
item any time after completion of an input-output 
operation, during the processing of a USE AFTER 
ERROR PROCEDURE declarative procedure or through an 
AT END or an INVALID KEY phrase imperative- 
statement in the Procedure Division, depending on 
the particular error or condition involved. 



When the at-end condition occurs, execution of the 
READ statement that recognized the condition is 
unsuccessful and the file is not affected. The 
following actions take place: 

The FILE STATUS data item, if any, is set to 10. 

Control transfers to - any imperative-statement 
specified by an AT END phrase in the READ 
statement; any procedure specified by a format 
1 USE statement declarative for the file is not 
executed. 

When an AT END phrase is not included in the READ 
statement, any procedure specified by a format 1 
USE statement declarative executes. 

If neither an AT END phrase nor a USE AFTER ERROR 
PROCEDURE statement declarative is specified, and 

';M%^iJ- the program aborts when an at-end condition 
occurs. 



INVALID KEY, S tatus 2n 

The invalid key condition might occur as a result 
of DELETE, READ, REWRITE, START, or WRITE statement 
execution when a file is being written or updated 
by key. In general, the condition indicates an 
illegal operation, such as a write of two records 
with the same key, but could also indicate that the 
key data item is incorrectly formatted. 

When the invalid key condition occurs, execution of 
the input-output statement that recognized the 
condition is unsuccessful and the file is not 
affected. The following actions take place: 

The FILE STATUS data item, if any, is set to 
one of the values associated with an invalid 
key condition. 



FILE STATUS IS data-name 



Figure 3-23. FILE STATUS Clause Format 



Control transfers to any imperative-statement 
specified by an INVALID KEY phrase in the 
input-output statement; any procedure specified 
by a format 1 USE statement declarative for the 
file is not executed. 
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TABLE 3-4. FILE STATUS VALUES 



Value 



Meaning 



00 
02 



10 
21 



22 
23 
24 
30 

34 

90 
99 



Successful execution. 

Successful execution: 

READ Key value for the current key of reference is equal to the value of 

that same key in the next record within the current key of reference. 

WRITE or Record just written created a duplicate key value for at least one 
REWRITE alternate record key. 

At-end condition. 

Invalid key condition from a sequence error: 

WRITE Indexed file must be created with ascending prime key values. 

REWRITE Primary key cannot change between format 1 READ and REWRITE. 

Invalid key condition because duplicate key values are not allowed. 

Invalid key condition because no record with a specified key exists in the file. 

Invalid key condition because of a boundary violation of a relative or indexed file. 

Permanent error, such as parity error, transmission error, or mass storage 
unavailable. 

Permanent error because of boundary violation; limit established by the FLM 
parameter of a FILE control statement reached. 

CYBER Record Manager error other than those listed above. 

COBOL detected error. 



When an INVALID KEY phrase is not included in the 
input-output statement, any procedure specified by 
a format 1 USE statement declarative executes. 

If neither an INVALID KEY phrase nor a USE AFTER 
ERROR PROCEDURE statement declarative is specified, 
snd; tl "jab FILE STATUS data. •item ts assactated , with 
jthe. ;,ftlei, the program aborts when an invalid key 
condition occurs. 



CYBER R ecord Manager Error, Stat us 90 

An error detected by CYBER Record Manager, the 
system routines that execute input-output state- 
ments, is not reported in detail in the FILE STATUS 
data Item. To learn the specific error, the 
following statement must be executed: 



ENTER "C.IOST" USING 
datar-name-2. 



file-name, data-name-1, 



File-name is the name of the file in which the 
error was detected. Data-name-1, which must be a 
four-digit integer described as USAGE IS COMP-1 in 
its Data Description entry, receives one of the 
detailed error codes listed in the CYBER Record 
Manager reference manuals. COBOL returns the 
decimal equivalent of the error code (an octal 



value) listed in the CYBER Record Manager reference 
manuals; for example, for the CYBER Record Manager 
error code 142 (octal) , COBOL returns the code 142 
(decimal). Therefore, the user can use without 
translation the code returned in data-name-1. 
Data-name-2, which must be a one-character alpha- 
numeric data item, receives a letter to indicate 
the severity of the error as classified by COBOL. 
The letters returned to data-narae-2 can be F or T. 
The following items indicate the significance of 
the classification: 

F Fatal error. Usually, this code is 

returned only when the C.IOST routine 
is called in a USE AFTER STANDARD ERROR 
declarative procedure; execution of the 
program is aborted after execution exits 
from the declarative. To help prevent 
the abort of program execution, the 
ENTER "C.IOENA" statement can be exe- 
cuted before exiting the USE AFTER 
STANDARD ERROR declarative procedure; 
however, execution of the C.IOENA rou- 
tine cannot always prevent the abort of 
execution. If the program error limit 
as indicated by the ERL field of the 
file information table (FIT) is exceed- 
ed, CYBER Record Manager overrides the 
routine and aborts program execution. 
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Trivial error. Further Input-output 
operations are possible for the file 
unless CYBER Record Manager aborts pro- 
gram execution because the trivial error 
limit as indicated by the ERL field of 
the FIT is exceeded. Even if program 
execution continues, trivial errors 
might have serious impact on file in- 
tegrity or results needed, and, in 
general, should not be Ignored. COBOL 
treats CYBER Record Manager error codes 
040, 052, 060, 100, 135, 137, and 176 
as trivial errors. The parity error 
codes, 135 and 137, which a user may 
want to be treated as trivial, are usu- 
ally fatal errors. These parity error 
codes are treated as trivial errors only 
if the error option (EO) field of the 
FIT is set (via a FILE control statement 
or USE clause) to a value other than 
the default value. (For further infor- 
mation about the EO field see the CYBER 
Record Manager Basic Access Methods 
reference manual.) 



C OBOL Detected Error, Status 99 

COBOL detected an error, such as open input on a 
nonexisting file. An appropriate error message has 
been output to the dayfile. To learn the specific 
error, the following statement must be executed: 

ENTER "C. lOST" USING file-name, data-narae-1 , 
data-name-2. 

Execution of the above statement returns an error 
code that is dependent on the dayfile messages as 
listed in table 3-5. Refer to CYBER Record Manager 
Error, Status 90 in this section for a description 
of file-name, data-name-1, and data-name-2. 

If the declarative USE AFTER STANDARD ERROR Is 
selected for the file in error, executing an ENTER 
"C. lOENA" statement prevents the abort (resulting 
from the current error) that would normally occur 
after the declarative is executed. To prevent 
aborts resulting from subsequent errors in the same 
file, the ENTER "C. lOENA" statement must be 
reexecuted. The appropriate error message con- 
tinues to appear in the dayfile when the ENTER 
"C. lOENA" statement is used. 



ORGANIZATION Clause 

I The ORGANIZATION clause (figure 3-24) specifies the 
structure of a file. It is required for any 
organization other than sequential. When the 
clause is omitted, sequential organization is 
assumed . 



TABLE 3-5. COBOL-DETECTED ERROR CODES 



ORGANIZATION IS 



! SEQUENTIAL 
RELATIVE 
INDEXED 
DIRECT 
ACTUAL-KEY 
WORD-ADDRESS 



Error 
Codes 



2001 
2002 

2003 

2004 
2005 
2006 

2007 

2010 
2011 
2012 

2013 

2014 
2015 
2016 
2017 
2020 

2021 
2022 
2023 

2024 
2025 



Execution Diagnostics 



RECORDING MODE BINARY ON ADVANCING FILE 

RECORD TYPE NOT PRINTABLE ON AN 
ADVANCING FILE 

ATTEMPT TO OPEN FILE WITH SAME NAME AS 
AN OPEN FILE 

FILE OPENED INPUT OR I-O DOES NOT EXIST 

ATTEMPT TO OPEN A LOCKED FILE 

HOME BLOCK COUNT NOT SPECIFIED FOR A 
NEW DA FILE 

RECORD LENGTH ON OLD RELATIVE FILE DIFF 
THAN PROGRAM 

RELATIVE FILE HEADER NOT VALID 

OLD RELATIVE FILE EMPTY - NO HEADER 

DELETE OR REWRITE ON SEQ ACCESS FILE 
WITH NO VALID READ PRECEDING 

READ ... NEXT WITH UNDEFINED CURRENT 
REC POINTER 

REWRITE RL DOES NOT EQUAL OLD RL 

ILLEGAL RECORD TYPE FOR REWRITE 

MULTI-FILE FILE NOT ASSIGNED TO TAPE 

READ ON FILE OPENED FOR OUTPUT 

ATTEMPT TO OPEN FILE OPENED BY ACCEPT 
OR DISPLAY AND PROCESSING DIRECTION 
DIFFERS 

DELETE FILE ON OPEN FILE - IGNORED 

AT END WHILE TRYING TO ACCEPT FROM FILE 

RELATIVE FILE CREATED WITH PRUF-YES BUT 
REOPENED AS NON PRUF 

MRL OR FL SET IN FILE STATEMENT IS 
LARGER THAN RECORD AREA-TRUNCATED TO 
RECORD AREA SIZE 

CLOSE ISSUED ON AN UNOPENED FILE 



RECORD KEY Clause 

The RECORD KEY clause (figure 3-25) specifies an | 
item that defines the primary key for records in 
indexed, direct, or actual-key files. The clause 
is required in any program that accesses a file 
with these organizations. 



RECORD KEY IS data-name 



I Figure 3-24. ORGANIZATION Clause Format 
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Figure 3-25. RECORD KEY Clause Format 
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During execution, the data item referenced by 
data-name specifies the value of the primary key. 
Values assigned must be unique among records of a 
file. 

Data-name must specify a fixed length item within 
the Record Description entry associated with the 
_ file j^r';:':, ap, 'I'tert^v;, ,ds-f t'ried' ''ii^y:,; ffie:. , Wfflr'):li^--S't'ctr'j^«v 
SecJb^i^, The relative position of the item within 
the record and the item description cannot change 
for the life of the file. The description of 
data-name is affected by the file organization. 

For indexed files , data-name can be a category 
alpha:iumerlc or numerlr elomi-ncary nr ^ronp item, 
[f data- name specifies an «ilomentary numt-ric item, 
i Lh pic.Luri' iinibt iiot contain an S iinless the item 
is also desrribod by USAGE IS COMP-1. A group item 
described with the DEPENDING ON phrase of an OCCURS 
clause cannot be specified. An alphanumeric item 
cannot exceed 255 characters. 



RESERVE Clause 

The RESERVE clause (figure 3-2 7) affects the size | 
of the central memory buffer used during internal 
processing of sequential, relative, and word- 
address files. The clause is ignored for files 
vd-th other organizations. If the clause is 
omitted, buffer allocation is under system control. 




Figure 3-27. RESERVE Clause Format 

In the clause , Integer must be an unsigned integer 
in the range 1 through 4095. Specification of a 
large value might result in an abort during 
execution if the required memory is not available. 



For actual— key files, datar-name mu«!t be defined as 
an elementary COMP-1 or COMP-4 Intiiger. 

For direct tiles, data-ncirai; can be a category 
alphanumeric ol emciUary or .i^roup 1rcii, af. lonj; ,is 
the griiwp i ti-m Is not described with I iie DKPENDING 
ON phrase of the OCCURS clause. Data-n.ime can also 
be a category numeric unsignud fl emtri i ar y iLom. if 
the item is described ds COMP-1, It ran be signed 
only If the sign is positive. An alphanumeric item 
cannot exceed 255 cluracLeis. 



RELATIVE KEY Clause 

I The RELATIVE KEY clause (figure 3-26) specifies the 
key item for a file with relative organization. 
During execution, the key item specifies a relative 
record number within the file. The ordinal of the 
first record in the file is I. The clause must be 
specified for relative files that are open in the 
random or dynamic access mode or that are refer- 
enced by a START statement. 



RELATIVE KEY IS data-name 



Figure 3-26. RELATIVE KEY Clause Format 

When the clause is specified, it must immediately 
follow an ACCESS MODE clause. 



The system uses the specified integer to calculate 
buffer size. 

Buffer size is affected by the file organization 
and the block size as described in the following 
list. (For more information see BLOCK CONTAINS 
clause in the FD entry of the Data Division.) 

Sequential File 

Five times maximum block size, plus two 
words if clause omitted; otherwise, integer 
times maximum block size, plus two words. 

Relative File 

Two times 64 words if clause omitted; 
otherwise integer times 64 words. 

Word-Address File 

Two times maximum block size, plus two 
words if clause omitted; otherwise, integer 
times maximum block size, plus two words. 

Indexed, Direct, Actual-Key File 

Buffer size allocated by system. 

If any file is accessed in a very random manner, 
use of this clause might result in system per- 
formance degradation. 



The data Item referenced by data-name must be an 
unsigned positive integer. It cannot be defined in 
the Record Description entry associated with the 
file. The data item must not be described by, nor 
be subordinate to, an OCCURS clausp. If tlip lilo 
is an Extornal file, data-name must be defined in 
the Co.Tsnon— Storaytr- Section. 



SELECT Clause 

The SELECT clause (figure 3-28) identifies the file | 
associated with the File-Control entry in which the 
clause appears. SELECT must be the first clause in 
the entry. 



When the access mode is sequential, the RELATIVE 
KEY clause is optional. If the clause is omitted, 
the system reads or writes the records in order by 
ascending ordinal value. If the clause is speci- 
fied for sequential access , the value of the 
relative key for the record just read or written is 
returned to data-name by the system. 



SELECT [OPTIONAL] file-name 



Figure 3-28. SELECT Clause Format 
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In the clause, file-name specifies a file named in 
an FD entry or an SD entry; only one SELECT clause 
can reference a given file. If fil&-name specifies 
a file in an SD entry, only the ASSIGN clause can 
follow the SELECT clause. 

The OPTIONAL phrase can only be specified for input 
flics with noquentl.il irf^ani z^tl■)ll. *L is ri'q'iired 
for input i i I ps rhir iro not .ie>-ess.ir ily urosuiit 
p.ich tinii> the [ri^.^r im executes. 



USE Clause 

The USE clause (figure 3-29) i-pucifies tile 
infor-nation that cannot othorwise be speclfit-d 
through COBOL 1 aiiijuaj^c stiiteijipnts. It can also be 
used ti) override processing specified by I'rocodure 
DiNflsion stjitemunts ami statfinonts in the TnpuL- 
OuLput Section and the F11p Section of the program. 



USE literal 



Figure 3-29. USE ClaiisD Form<it 

The clause must contain a nonnumertc liLi'ral that 
duplicates the jvjr.moLer tormat of r.hf- FTLF coiitr:)! 
statanent procpssed by CYBER Record Ma.iager. 
Parameter format Is: 

ia3yword=value [, keyword=vaLue 1 ... 

Kevwords correspond to the syrabnl Ir names of fields 
in the file information table (FIT) iiscH to govern 
CYBER Record Manager procc!ssin<;. Values can be 
symbolic or integer. 



I Fif»ure 3-30 lists the parameters 
specified through thu USE clause. 



that can 



BBH 


DP 


HB 


PC 


BCK 


EFC 


IBL 


KMK 


BFS 


EO 


IP 


m 


RT 


ERL 


MUL 


SBF 


CNF 


FF 


ML 


SPR 


CPA 


FLM 


ORG 


TRC 


DFC 


FWI 


OVF 





Figure 3-30. USE Clause Parameters 

A complete description of the moaning and use ol 
these parameters appears in the CYBKR Record 
Manager documentation. 

Tn addition to the CYBER Record Manager p.irameters, 
thu following can be specified: 

PRISTI'=YHS 



If the BEFORE/AFTER ADVANCING phrase of 
WRITE is not used, all lines are single 
spaced. If the phrase of WRITE is used, 
the phrase establishes the line spacing. 
PRINTF=YES is assumed on Report Writer 
files, and files with a LINAGE clause in 
the FD entry. 

PRUF=yES 

Applicable t'j relative files only. PRUF=yES 
causes each record to begin on a PRU bound- 
ary and t.> bi.i written and read as a tull 
PRU. (A PRU i.s 640 characters and is the 
smallest unit tr.in.sforrud to or Irom mass 
storage tor each reaa or 'rfrite issuud by 
Llie sysLura.) When tile records jre ex.-ictly 
10 ch<iracterB losij than a PRU multiple, very 
oLficient processing results. (CUKOL usus 
10 characters iji (he I'KI" at thf be;gLTinii\?! 
ol each record.) When this paramo ter 1:= 
specified, the record area is used as ii 
butter; any RESERVE clause is ignored. 

^.tdiniil es of Llw USK clause 'ire: 

USE "TP-2S" 

CauRHS ?.") percent jjadding in index hlock-s 
i'^iT an i.idexejl file. 

USE "RT=a,RMK=r)2B" 

Specifies that record type lor Ltie rile is 
R and that dach recorj is terra Inj led by the 
character 1 . Overrides the record type 
established jy the I'D entry tor tlie tile. 

NOTE 

Refer to Jippundix F tor recomnendations on 
the use of record types. 

11 Ine USE literal is conttnui;!d on anotiicsr line In 
tlie t^iurce code, and If any complliitiiin diagnostics 
are issued for erroneous, parameters in tliu continued 
portion, the column number given In the diagnostic 
includes the 72 positions in the previous line. 

T'J dutermine the column nuinht^r in tht continuation 
line, subtract 71 frEtia tne column 'luiitbi-r git/en in 
the diagnostic, and add this to the colu.-nn niL'nher 
in v/liich the continuation line began. 



WORD-AOORESS KEY Clause 

The WORD-ADDRESS KEY clause (figure i-3l) specifies | 
the beginning p.isitlon of a record within a file 
with word-address organliiatlon. Tlie clause is 
requ1ri?d to accest. >i lile with this organization. 



WORD-ADDRESS KEY IS data-name 



Figure 3-31. WORD-ADDRESS KEY Clause Format 



rdentiCies file .is .\ i)rint tile. File 
structure is set to RT=Z and BT-C, and the 
record area is adjusted such that the first 
character supplied by the program is a data 
character, not a o.irrlage control character. 



I'lii data item specified by data-name iiiu.st '.>e le- 
fined -is an unsigned numeric integer. It cannot oe 
described by, or be subordinate to, .in (X;CURS 
clause. If the file is .m External tile, data-name 
must 'ic ilefined iu tlie Common-Storage Section. 
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During I'xe.'-ul Inn, the progrHi.i is responsiDlo for 

seLtiTy ihe item to Che number nf llie word in thii 

rtle at whii'h reading or writing 1 s to oct-ur. Si'rf 

the Baslr Acoprs Vthixls (UAM) roferjnct' rnnnual for 
Information pprclm-nl. to JLtferenL record types. 

After a read or write uporation, tht- key is updated 
to the next available word following thf record 
just written or read. The ler^gth of the record 
depc'ndR on the record descriptions and tlie RECORD 
cluiise. 



l-O-CONTROL PARAGRAPH 

The I-0-CONTROL paragraph is used to specify the 
points at which rerun is to be established, the 
memory area that is to be shared by different 
files, and the location of files on a multifile 
reel. The paragraph is optional and the clauses 
can appear in any order. The skeleton for the 
I I-0-CONTROL paragraph is shown in figure 3-32. The 
paragraph header is : 

I-0-CONTROL. 



l-O-CONTROL. illR^f Sd^Bsy-. 
[; MULTIPLE FILE TAPE clause] . . . 
[; RERUN clause] ... [; SAME clause] 



Figure 3-32. l-O-CONTROL Paragraph Skeleton 



APPLY Clause 

The APPLY cImusc Js documenCiry only, although the 
clause syntax Is checked. Input-yuLput-tecIinlqui' 
can be any word that contorms to the rules for 
forming a procedure-ncunc. (Jlauso format Is: 

.APPLY Input-output-tech-iique ON f Ut— iuime-1 
[ , file-namo-2] . .. 



MULTIPLE FILE TAPE Clause 

The MULTIPLE FILE TAPE clause (figure 3-33) speci- 
fies that a file named in the program shares the 
same physical tape reel or set of reels with other 
files; it also indicates the position of the speci- 
fied file within the multifile tape. The clause is 
required when a file that resides on a multi-file 
tape is referenced by a program, unless the file 
position is specified by control statement 
parameters. 

The tape files must have labels described with 
LABEL RECORDS ARE STANDARD in their FD entries. 



More than one MULTIPLE FILE TAPE clause can appear 
to describe each file involved. The position of 
the file is specified by the position of the 
file-name oB;:rp,sie«d'0rrfil3B»'.n?ii«'' within the sequence 
of file-names" "aM'd/«r':c^ ^r by an 

associated POSITION phrase. 

File-name-1 and flle-name-2 name files that are 
referenced in an OPEN statement and have an FD 
entry assucidtud with the tile; pseudo-flle-namu-1 
ami pseudo-file-narae-2 name files on a multifile 
tape that are not referenced within the program. A 
k-ombinatioh of rile-names and p.^iiuiio-f ile-ndinesJ can 
be ftpecified to indicate the ordinal position of 
the files referenced by the program. 



The multifile name (MFN) is the name used to assign 
a multiple file tape. The MFN depends on several 
factors and differs for each operating system, as 
described in the following paragraphs. 

On the NOS operating system, the first six 
characters of the Implementor-name (as speci- 
fied in the ASSIGN clause) are used as the 
MFN. The implementor-name can be from one to 
seven characters in length. The seventh char- 
acter can differ for each file in a set. If 
FILE -SET-ID is specified in the FD entry for 
the file, it is used to check the multifile set 
name field in the label. If FILE-SET-ID is not 
specified, MFN is used to check the multifile 
set name field in the label. 

On the NOS/BE operating system, if FILE-SET-ID 
is specified in the FD entry for the file, it 
is used as the MFN. If FILE-SET-ID is not 
specified, the first six characters of the 
implementor-name are used. In this case, 
implementor-name must be seven characters in 
length, and the last character should differ 
for each file. The REQUEST or LABEL control 
statement, specifying MFN, must contain the MF 
parameter and must specify U labels. The 
multifile set name field in the label is not 
checked on input, but is set to MFN on creation. 

Regardless of the operating system, the MFN for 
flle-name-1 and flle-name-2 must be the same 
and must conform to the rules for file names in 
the operating system being used. 



The POSITION phrase of the MULTIPLE FILE TAPE 
clause specifies the ordinal position of the file 
on the multifile tape. It must be used if all 
files on a multifile tape are not specified by a 
file-name or-, a ' p^eido-'fiifca^e^; or if the file- 
names or '„;ps,du(io^;fllfe-rtt^ea- are not specified in 
consecutive ordinal order corresponding to their 
physical placement on the tape. The first file on 
the tape has position 1. Integers must be unsigned 
and positive with a value greater than zero. 



(file-name-1 ) ,„ ..,,^.. . ,i 

MULTIPLE FILE TAPE CONTAINS \ps^cio.^file-name^l7 f POSITION integer-1] 

[■ {JSo^teiname-?} IPOSTnON lnteger-2]]. . . 



Figure 3-33. MULTIPLE FILE TAPE Clause Format 
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RERUN Clause 

I The RERUN clause (figure 3-34) specifies the 
conditions under which the system is to checkpoint 
the program. When a checkpoint occurs, the current 
state of the program is copied to a checkpoint tape 
along with information about files attached to the 
Job. In the event the program terminates abnor- 
mally, the RESTART capability of the operating 
system can be used with the checkpoint tape to 
continue the program from the situation existing at 
the last checkpoint. 

Any change made to a permanent random access file 
since the last checkpoint dump will remain In the 
file, and attempts to update the changed records 
can result in errors. Therefore, it is recommended 
that the RERUN clause not be used when updating 
permanent random access files. 

More than one RERUN clause can be specified as long 
as no RERUN clause duplicates an integer-T RECORDS 
condition specified for a particular file-name. 



ON Phrase 

The ON phrase is documentary only, but should be 
specified. When the job requests a tape and 
designates it as a checkpoint tape, that tape holds 
the checkpoint dumps. Otherwise, a tape with the 
name CCCCCCC is requested by the system and used 
for the checkpoint. 



EVERY Phrase 



The EVERY phrase specifies the conditions under 
which a checkpoint is to occur. 

END OF REEL /UNIT 

Specifies that a checkpoint is to occur 
each time an end-of-reel or unit condition 
is encountered on file-name-2. (The terms 
REEL and UNIT are synonymous and inter- 
changeable.) For tape files, the end-of- 
reel condition can occur either as the 
result of executing a CLOSE statement with 
a REEL/UNIT phrase or as a result of 
reaching the physical end of a tape reel. 
For mass storage sequential files, the 



condition only occurs as the result of 
executing a CLOSE statement with a REEL/ 
UNIT phrase. File-narae-2 cannot reference 
a file described with an SD entry or. with 
the- EfflE'RNAL clause -In the. -Ft} 'entry; file- 
name-2 cannot be referenced in more than 
one RERUN clause. 

Integer-1 RECORDS 

Specifies that a checkpoint is to occur at 
the end of processing each integer-1 
record. Integer-1 must be positive and 
unsigned with a value greater than zero but 
not exceeding I'^^-l, or 1048575. 

Co nd i t io n- name 

Specifies that a checkpoint is to occur 
when a particular switch status exists at 
the time the program resumes execution 
after halting from STOP literal statement 
execution. Condition-name must be defined 
in the SWITCH-n clause of the SPECIAL-NAMES 
paragraph and be associated with a mnemonic- 
name and an ON or OFF status. An external 
switch can be manipulated by a SWITCH 
control statement between job steps, or by 
a central site operator at any Lime. An 
internal or 03(tornal switch can be manip- 
ulated in the program by execution of a 
format 4 SET statumuiit. Ihe system inter- 
rogates the switch as soon as operation 
resumes after the STOP statement. A check- 
point occurs when the switch condition 
corresponds to that defined in the RERUN 
clause. 



SAME AREA Clause 

The SAME AREA clause (figure 3-35) can be specified 
by four phrases. The first three phrases (SAME 
AREA, SAME SORT AREA, SAME SORT-MERGE AREA) 
indicate that the named files share the same 
buffer. The fourth phrase (SAME RECORD AREA) 
indicates that the named files share the same 
record area within the program. 

Fiii'S referenced l.i the SAME AREA claiisiT cannot oe 
described with thf EXIERNAI. rlau^.T in tha FD entry. 



RERUN 



[/ file-natne-1 
^^ I implementor-name 



}] 



EVERY 



§!^ OPl { UNK / \ OF file-name-2 



[ integer-1 RECORDS ) 
condition— name 



Figure 3-34. RERUN Clause Format 



SAME 



( RECORD 
< SORT 
(SORT-MERGE 



AREA FOR file-name-1 { , fite-name-2 } 



Figure 3-35. SAME AREA Clause Format 
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Buffer Sharing 

The SAME AREA, SAME SORT AREA, and SAME SORT-MERGE 
AREA clauses are equivalent and are used to specify 
that different files can use the same Internal 
buffer area. Only one file named In one of these 
clauses can be open at any given time. The buffer 
area Is allocated by the system when the file is 
opened and is released when the file Is closed. 
The released area is available as buffer space for 
other files or for sorting or merging operations 
whether or not the SAME AREA clauses are present. 

A file-name defined by an SD entry can appear only 
in a SAME SORT AREA or a SAME SORT^ERGE AREA 
clause. No file-name can appear more than once In 
each type of phrase of the SAME AREA clause. If a 
file-name appears in two or more types of SAME AREA 
clauses, all of the file-names in those clauses 
must be duplicated in each clause. 



Record Area Sharing 

The SAME RECC»D AREA clause specifies that two or 
more files are to use the same memory area for 



processing the current record. All of the files 
can be in the open mode at the same time, and a 
record in the SAME RECORD AREA is considered as a 
record of each opened Input and output file whose 
file-name appears In a SAME RECORD AREA clause. 



A file-name must not appear in more than one SAME 
BIECORD AREA clause. However, a file-name can 
appear in both a SAME RECORD AREA clause and one or 
more of the SAME AREA clauses. If one or more 
file-names of a SAME AREA clause appear in a SAME 
RECORD AREA clause, all of the file-names in that 
SAME AREA clause must appear in the SAME RECORD 
AREA clause. Additional file-names not appearing 
In the SAME AREA clause can also appear in the SAME 
RECORD AREA clause. 



Although all files mentioned in a SAME RECORD AREA 
clause can be opened at any given time, when the 
files are also mentioned in a SAME AREA clause the 
rule that only one of the files mentioned in a SAME 
AREA clause can be opened at one time takes 
precedence over the rule for files named in a SAME 
RECCXID AREA clause. 



I 3 
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DATA DIVISION 



The Data Division describes all data referenced in 
the program, whether it is data read or written to 
files, data that Is developed during program 
execution, or data that is assigned a value which 
remains constant during program execution. 

The , Data, Division is the. other, optional- .division-. 
It is made up of seven optional sections . Within 
each section, different types of entries, which 
begin with a level indicator or level number, 
describe the physical representation and logical 
use of the data. 

A skeleton of the Data Division Is shown in 
figure 4-1. 

The division header is: 

DATA DIVISION. 



The lieader is optiohal; however, when used it must 
appear on a separate line, beginning in area A. 
The separator period must terminate the header. 



DATA DIVISION SECTIONS 

The seven sections of the Data Division each 
describe a different use of data: 

File Section 

Describes data in input or output files. 

Common-Storai5«." Section 

Describes data stored in common memory 
areas for use by independently complied 
subprograms . 



Working-Storage Section 

Describes constants or data developed 
within a program. 

Secondary-Storage Section 

Describes data stored in cxlendod memory. 



DATA DIVISION. 

FILE SECTION. 

jf file-description-entry I 

Hsort-merge-file-description-entry) 

COMM ON-STORAGE SEC TION. 

ryy-lPVPl-rlBsctiplion-entr V 

I rtscord -clescription-fntty J ■ ■ 

WORKING-STORAGE SECTION. 

[77-level-description-entry 
record-description-entry J ■ ■ 

[SECONnAHY-ST ORAGE SECTION. 

reRord-debrriptiDii-sntiy . . 

LINKAGE SECTION. 



JLINKAi 

^ r 



L 77-level-description-entry 
record-description-entry J 

COMMUNICATION SECTION. 



[record -description-entry] 



communication-description-entry [record-description-entry] ...... I 

j report-group-description-entry [ . . . 



REPORT SECTION. 



[ 



report-description-entry 



Figure 4-1. Data Division Skeleton 
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Linkage Section 

Describes data passed to a subprogram by a 
CALL statement. 

Communication Section 

Describes data passed to and from Message 
Control System (MCS) . The section can be 
used only under NOS. 

Report Section 

Describes content and format of report to 
be generated by the Report Writer facility. 

All sections are optional. When the section is 
omitted, the section header can, but need not, be 
omitted. When Included, sections must be in the 
order shown in figure 4-1. This figure also shows 
the different types of entries that can appear 
in each section. Figure 4-2 further defines 
terminology of entries. 



data. For report files, however, the data is 
described In Report Description entries within the 
Report Section, as discussed in section 6 of this 
manual . 

Sort-Merge-File-Descrlptlon entries, which begin 
with an SD level indicator, define the record and 
the sort keys, as discussed in section 7 of this 
manual. Record Description entries follow the SD 
entry. . 

When the File Section is emitted, no files can be 
referenced in the program, except through ACCEPT 
and DISPLAY statements that assume default file and 
data descriptions. See the discussion of these 
statements in section 5 of this manual for details. 



COMMON-STORAGE SECTION 

The Common-Storage Section describes data that Is 
shared by independently compiled subprograms. See 
section 15, Inter-Program Communication Facility. 



FILE SECTION 

The File Section defines the structure of data 
files. Each file used for input, output, or sort 
or merge operations must be defined in this 
section. Files referenced in the Procedure 
Division only by the ACCEPT or DISPLAY statements 
are not defined in the File Section, with the 
exception of the file with the implementor-name 
"OUTPUT" which can, but need not, be defined. 

The File Section is composed of a section header 
followed by a number of File Description entries or 
Sort Description entries. The section header is: 

FILE SECTION. 



The header must appear on a separate line, beginning 
in area A, and must be terminated by a separator 
period. 

File Description entries, which begin with an FD 
level indicator, define input, output, and report 
files. For input and output files, Record Descrip- 
tion entries follow the FD entry to describe the 



WORKING-STORAGE SECTION 

The Working-Storage Section describes data that is 
not part of a record in a file. Data items defined 
in this section can be assigned values in this 
section or can be assigned values developed during 
program execution. 

The Working-Storage Section is composed of the 
section header followed by any number of level 77, 
level 66, or level 88 Data Description entries 
and/or Record Description entries. The section 
header is: 

WORKING-STORAGE SECTION. 



The header must appear on a separate line, beginning 
in area A, and must be terminated by a separator 
period. 

The VALUE clause can be used to set the Initial 
value of an item in the Working-Storage Section. 
If an initial value is not specified for a data 
item, its Initial content is undefined. 



Level 
Indicator- 



Level 
Number' 




FILE SECTION. 
-FD file-name \ 

file-description-entry clauses. J ^^ entry 

01 data-description-entry. 

02 or subordinate data-description-entries. 



01 data-description-entry. 



Record 

Description 

Entry 



WORKING-STORAGE SECTION. 
77 data-description-entry. 
01 data-description-entry. 



Figure 4-2. Data Division Terminology Summary 
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SECONDARY-STORAGE SECTION 

The Secondary-Storage Section describes group Items 
that are allocated to extended memory as an 
alternative to central memory. Only nonedlted 
alphanumeric moves (Including the Ifflpllclt moves 
associated with the INTO and FROM options of the 
READ, WRITE, RELEASE, and SETUIW statements) can be 
performed on data defined In the Secondary-Storage 
Section. References to Secondary-Storage Items can 
be subscripted, but Secondary-Storage Items cannot 
be used as subscripts. 

The Secondary-Storage Section is composed of a 
section header followed by any number of Record 
Description entries. The section header is: 

SECONDARY-STORAGE SECTION. 



The header must appear on a separate line , beginning 
In area A, and must be terminated by a separator 
period. 

Only group items with level numbers 01 through 49 
can be specified in this section] otherwise, 
Secondary-Storage items are like Working-Storage 
Items. Items in Secondary-Storage cannot be 
described with an OCCURS clause having a DEFENDIKG 
ON phrase. 

Usage of Secondary-Storage requires the use of the 
EC parameter on the control statement. For 
Interactive mode, NOS and NOS/BE require RFL,EC-n. 
For batch mode, NOS requires ECn on the job control 
statement and RFL,EC=n prior to execution; NOS/B'E 
requires ECn on the Job control statement. 



CD entries must appear only In the Communication 
Section and only under NOS. 

The level indicators FD or SD must be immediately 
followed by a file-name specified In a SELECT 
clause of the Environment Division. The level 
indicator CD must be immediately followed by a 
cd-n£ime defined in the Communication Section of the 
Data Division. The CD level indicator can be used 
only under the NOS operating system. The level 
indicator RD must be inmiedlately followed by a 
report-name specified in the Report Section of the 
Data Division. The level indicator must begin in 
area A of a line; the file-name, report-name, or 
cd-name should begin in area B, ]l^:'-"^iV^i^^j-ijk- 
^^^^^ .Clauses within the entry define general 
characteristics and data items in each group. The 
entry is terminated by the separator period. 

Entries that begin with a level indicator are 
followed by Data Description entries that begin 
with a level niraiber. Entries of level 01 through 
49 describe the hierarchy of items: that is, they 
describe records, group items, and elementary 
items. Entries of level 66, 77, and 88 have 
special purposes and do not define the hierarchy of 
the items described. 

The remainder of this section describes File 
Description entries. Record Description entries, 
and Data Description entries. Data Division 
clauses that can appear only in RD entries, SD 
entries, and CD entries are discussed in sections 
6, 7, and 14, respectively. 



LINKAGE SECTION 

The Linkage Section is valid only in a called 
subprogram. See section 15, Inter-Program 
Communication Facility. 



COMMUNICATION SECTION 

The Communication Section is required in programs 
that use the MCS. See section 14, Message Control 
System. 



REPORT SECTION 

The Report Section describes reports -that are 
generated through the Report Writer. See section 6, 
Report Writer Facility. 



DATA DIVISION ENTRIES 

Entries within the Data Division begin with a level 
indicator or a level number. 

A level Indicator consists of two characters: FD, 
SD, RD, or CD. 

FD and SD entries must appear only in the File 
Section. 

RD entries must appear only in the Report 
Section. 



FILE DESCRIPTION ENTRY 

A File Description entry defines the physical 
structure and either the record names or report 
names pertaining to a given file. It also speci- 
fies the manner in which data is recorded on the 
file, the size of the logical and physical records, 
and the labels on the file. A skeleton of a File 
Description entry is shown in figure 4-3. 



FD file-name 


[; BLOCK CONTAINS clause] 


[: CODE-SET clause] 


[: DATA RECORDS clause] 


; LABEL RECORDS clause 


[; LINAGE clause] 


[; RECORD clause] 


MW^^MIMVIOD E clausa] 


[.- REPORT clause ] . 



Figure 4-3. FD Entry Skeleton 



The level indicator FD must be Immediately followed 
by a file-name that has been specified in a SELECT 
clause and equated to an implementor-name in the 
FILE-CONTROL paragraph of the Environment Divi- 
sion. The clauses in the FD entry can be in any 
order; only the LABEL RECORDS clause is required. 
Punctuation between clauses is optional k 
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BLOCK CONTAINS Clause 



Direct Files 



The BLOCK CONTAINS clause (figure 4-4) specifies 
information the system uses to determine the 
physical size of a block, in the file. The clause 
Is valid only for files with sequential, indexed, 
direct, and actual-key organizations; it is 
ignored for files with relative and word-address 
organization. 



BLOCK CONTAINS [integer-1 TO] 



...RECORDS m 

integer-2 \ CHARACTERS m 



Figure 4-4. BLOCK CONTAINS Clause Format 



Integer-1 and integer-2 are unsigned numeric 
literals indicating the number of records or 
characters to be used in system calculations. 
Integer-2 must be greater than integer-1. If bulh 
RECORDS and CHARACTERS are omittod, CHAKAi.TEKS is 
assumed. 

The physical block size that results from this 
clause or the omission of this clause depends on 
the file organization; and, in the case of sequen- 
tial files, depends also on the device on which the 
file resides. The number of records that exist in 
each block is affected by actual record size (see 
the RECORD clause), by sequential file block type, 
and by system use of space within the block. 
Indexed file data blocks, for example, contain key 
information as well as user records. 



For direct files in the direct format, the size of 
a block is always a multiple of PRU size (640 
characters) less 50 characters. The value. In 
characters, that the system rounds upward for block 
size is: 

Two average size records when the clause is 
omitted 



Maximum record size multiplied by integer-2 
when RECORDS is specified 



Integer-2 when CHARACTERS is specified 



A ctual-Key Files 

For actual-key files in the actual-key format, the 
size of a block is always a multiple of PRU size 
(640 characters) less 50 characters. The value. In 
characters, that the system rounds upward for block 
size is: 

Maximum record size multiplied by eight, plus 
90 characters, when the clause is omitted 



Sum of (maximimi record size multiplied by 
lnteger-2) and ((integer-2 plus 1) multiplied 
by 10) when RECORDS is specified 



Integer-2 when CHARACTERS is specified 



(See the CYBER Record Manager manuals for 
information about choosing an appropriate block 
structure, about other parameters that can affect 
block structure, and about alternative means of 
specifying file structure.) 



Indexed Files 



Indexed files have index blocks and data blocks. 
The BLOCK CONTAINS clause affects only the size of 
data blocks. For indexed files in the indexed 
sequential format, the size of a data block Is 
always a multiple of PRU size (640 characters) less 
50 characters. The value. In characters, that the 
system rounds upward for block size Is: 

Maximxmi record size if the clause is omitted 

Maximimi record size multiplied by lnteger-2 
when RECORDS is specified 

lnteger-2 when CHARACTERS is specified 

I For indexed files in indexed sequential format, the 
AAM utility FLBLOK should be used to choose the 
block size. 



Sequential Files 

A block in a sequential file has a type and a size 
that depends on the device. 

When the file is on a mass storage device, 
the block is always a C type block of 640 
characters. 

When the file is on a tape in SI or I format, 
the block is always a C type block of PRU 
size. For NOS, PRU size is 5120 for a tape in 
I format and 5120 for a binary SI tape. For 
NOS/BE, PRU size is 1280 for a coded SI tape. 

When the file is on a tape with S or L format 
(table 4-1), block type and size vary according 
to the clause specification. 

K type blocks and E type blocks always have an even 
number of characters, so the system adds a padding 
character to the block if necessary. K type blocks 
have the same number of records in each block; if 
the size of the records in the block varies, the 
block size varies accordingly. E type blocks have 
as many records as can be accommodated between the 
minimimi and maximum block sizes. W type records 
cannot be used with K or E type blocks. 



4-4 



60497100 L 



TABLE 4-1. BLOCKING ON S OR L FORMAT TAPES 



Clause Specification 


Block Type and Size 


Omitted 

Integer- 2 RECORDS 

Integer- 1 TO tnteger-2 RECORDS 

Integer-2 CHARACTERS 

Integer-1 TO integer-2 CHARACTERS 


Block type K with one record per block. 

Block type K with the size of each actual 
block varying as the sizes of the par- 
ticular integer-2 records vary. 

Block type E with minimum block size of 
lnteger-1 multiplied by minimum record 
size, and with maximum block size of 
integer-2 multiplied by maximum record 
size. 

Block type E with lnteger-2 characters 
per block. 

Block type E with minimum block size of 
integer-1 characters and maximum block 
size of integer-2 characters. 



CODE-SET Clause 

The CODE-SET clause (figure 4-5) is used for 

Internal code conversion between an external 

alphabet and the display code used Internally by 
the system. 



DECIMAL or omitting the clause sets the CM field to 
YES. The conversion parameter an the control 
statement requesting the tape overrides any exter- 
nal alphabet named in the ALPHABET dlause. In this 
case, the ALPHABET and the CODE-£lET clauses are 
documentary only. 



CODE-SET IS alphabet-name 



Figure 4-5. CODE-SET Clause Format 

The alphabet-name specified must be asspciated with 
an external alphabet in the ALPHABET clause of the 
SPECIAL-NAMES paragraph of the Environment Division. 

The CODE-SET clause provides a way of assisting the 
user in reading and/or writing information for 
processing on another manufacturer's system. 
Information is usually transferred by magnetic tape 
or punched cards. 

The CODE-SET clause cannot be specified if the 
EXTERNAL clause is Included in the FD entry. 



Tape Processing 

The CODE-SET clause can be used for 7-track tapes 
with odd parity written on a UNIVAC 1100 series 
system. Tapes are read or written In UNIVAC 1100 
Series FIELDATA code if the alphabet-name in the 
CODE-SET clause is associated with the external 
alphabet UNI in the SPECIAL-NAMES paragraph. 
Specifying the CODE-SET clause and RECORDING MODE 
IS BINARY causes translation between FIELDATA code 
and the Internal display code of the system. The 
COBOL library performs translations. 

For ASCII and EBCDIC conversions, the tape driver 
makes the conversion only when the CM field in the 
FIT contains YES. Specifying RECORDING MODE IS 



Card Processing 

Card decks consisting of characters from the 
64-character ASCII or EBCDIC subset can be proc- 
essed as input, but cannot be punched out unless 
the operating system is installed in ASCII mode. 
The CODE-SET clause must be used to punch a deck 
using the full 64-character subsets of ASCII and 
EBCDIC. The clause must also be used to read a 
deck coded in one of these subsets plus the 
lowercase alphabet. 

The alphabet-name must be associated with the 
external alphabet ASCII-64, STANDARD-1, or EBCDIC, 
depending on the code translation desired. 

If the CODE-SET clause is specified, the object 
time input-output routines translate code in 
free-form binary format to the Internal display 
code used by the system. (A card in free-form 
binary format contains 12 bits-per-column and a 
maximum of 16 words-per-card . ) 

To create an input file in free-form binary format 
from an ASCII or EBCDIC deck under the NOS oper- 
ating system, the deck must be preceded and 
followed by cards with a 5/7/9 punch in column 1 
and a 4/5/6/7/8/9 punch in column 2. The deck must 
be In a record by itself. 

To create an input file in free-form binary format 
from an ASCII or EBCDIC deck under the NOS/BE 
operating system, the deck must be preceded and 
followed by cards with punches in all 12 rows of 
both column 1 and column 2. The deck must be in a 
record by itself. 
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A file created using this procedure is punched by 
specifying a disposition code of P8 on a ROUTE or 
DISPOSE control statement. For more detailed 
information, consult the appropriate operating 
system reference manual. 

If binary information is to reside on either the 
file INPUT or the file PUNCH, a FILE control 
statement must be used to override the default 
block type and record type for these files. The 
FILE statement must specify F type records and C 
type blocks. 



In I ho Fl) iMiLry and the File-Control entry for an 
lacternal file, data-names specified in the clauses 
must bt> defLned in the Common-Storage Section of 
the. Data Division. Tliat is, data-names specified 
in clauses such as the RECCSID KEY clause, the BLOCK 
COUNT clause, the FILE STATUS clause, and the 
KECORD KEY clause must be defined in the Common- 
Storagu .Section. However, the data-names described 
within the Record Description entries ol levels 01 
tlirough 49 must not be defined in the Common-Storage 
Section and must follou the FD entry. 



DATA RECORDS Clause 

The DATA RECORDS clause (figure 4-6) associates the 
names of data records with their files. It Is 
documentary only, but should be specified. 



LABEL RECORDS Clause 

The LABEL RECORDS clause (figure 4-7) specifies 
whether or not standard labels exist on the file. 
It can also specify values for standard label 
fields. The clause is required in every FD entry. 



( RECORD IS » , ■ 

DATA 1 RECORDS ARE f data-name-l 

[, data-name-2] . . . 



CWITTED 



Figure 4-6. DATA RECORDS Clause Format 

The data-names must specify level 01 Record 
Description entries that are subordinate to the FD 
entry containing the DATA RECORDS clause. 



EXTERNAL Clause 

The EXTERNAL clause spi'cJfieK tliaL I hi' file iss iiii 
External file and can be shared by several programs 
in a run unit. All External files must he described 
in the main program; a subprogram describes only 
those External files referenced by that subprogram. 
ClausL- forraaL is: 



Specifies that no explicit labels exist for 
the file. Must be specified for all files 
that reside on mass storage 03^..#f4'S 



STANDARD 



Specifies that tape file labels conform to 
the standard system format, which is that 
defined in American National Standard 
X3. 27-1969, Magnetic Tape Labels for 
Information Interchange. STANDARD is valid 
only for magnetic tape files and files that 

■km'^-'^'t:-:yMiBMnslr-i^fi.i&^ if standard is 

specified for a mass storage file, the 
labels are Ignored. It must be specified 
when the MULTIPLE FILE TAPE clause Is used 
to position a multiple file tape. The tape 
file must be assigned with a REQUEST control 
statement. If a LABEL control statement is 
used, the information in the LABEL RECORDS 
clause is ignored. 



IS KXTERNA L 

When the EXTERNAL clause is .-ipecifiud, all other 
clauses assocLatc-d with the fill' must bi' the surai; 
In any program referencing Llie file. It is best to 
use the COPY st.<itement or Update common decks to 
ensure that all descriptions of the file are I he 
same- 

Certain features are prohibiti'd with Exlernnl 
files. T'.ic Report Writer f.ic-iljty cannot he used. 
The LABEL RECORDS cl.iuse c.innot fpfccify STANDARD. 
The RERUN clause and the SAME AREA clause cannoL be 
specified for an feternal file. The CODE -SET 
clause cannot be specified. 



The VALUE OF phrase is valid only for tape files 
with labels specified as STANDARD. It specifies 
the value of label record items to be written 
during output file processing or to be checked 
during input file processing. Label processing 
occurs at the time the file is opened during 
execution. 

In the phrase , each implementor-name specifies a 
label record item. These names correspond to 
fields in standard HDRl labels with similar names. 
During input processing, if the value specified for 
a label record item does not match the contents of 
the corresponding field written on the tape label, 
the operating system Issues a diagnostic message to 



.RECORDS ARE) / STANDARD 
i-ABEL ) RECORD IS / t OMITTED 



(RE 

,,...,. .- . . . .„ f data-name- 1 ) 

; VALUE Of implementor-name-1 IS ) |jteral-1 f 

[/data-name-2 ) 1 
, implementor-name- 2 IS ) |jteral-2 / • • ' 



Figure 4-7. LABEL RECORDS Clause Format 
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the dayflle and terminates the job. Table 4-2 
defines the implementor-names that can be specified 
and the meaning of the fields. The contents of the 
items should conform to the length and type of 
character the standard defines; larger data items 
are truncated. 



Both data-name and literal specify values for the 
items. Literals for all except implementor-names 
FILE-ID and FILE-SET- ID must be numeric. A figura- 
tive constant can be substituted for the literal. 
Data-names must be defined In the Working-Storage 
Section and must be described as USAGE IS DISPLAY; 
they cannot reference an item described with an 
OCCURS clause. Data-names can be qiialifled when 
necessary, but cannot be subscripted or Indexed. 



See the operating system reference manual for more 
Information about standard tape labels. 



LINAGE qause 

The LINAGE clause (figure 4-8) specifies the number 
of lines in a logical page of a file to be printed. 
The values specified by the clause are used during 
opening and writing of the file to control vertical 
positioning of output lines. The clause can. 
specify top and bottom margins and a footing area 
within the page. 



The clause cannot appear in an FD entry that has a 
REPORT clause. 



The LINAGE clause defines logical pages; the 
programmer is responsible for reconciling the 
physical page size and top-of-form alignment for a 
particular printer with the values in this clause. 
The logical page defined by the clause need not 
have any relation to physical page size. 



TABLE 4-2. STANDARD LABEL ITEMS FOR TAPE FILES 



Implementor-name 


Contents 




FILE-ID 


1-17 character file identifier. 




FTT,R-SET-ID 


1-6 character identifier of multifile set. See discussion of 
MULTIPLE FILE TAPE clause for usage of this field. 




FILE-SECTION-NUMBERt 


1-4 digits indicating number of this reel in a set. Normally 
starts with 1 and is incremented by the system for each new 
reel. 




FILE-SEQUENCE-NUMBER 


1-4 digits Indicating number of file in a multifile set. 




GENERATION-NUMBERt 


1-4 digits. 




GENERATION-VERSION-NUMBER 


1-2 digits indicating edition of file. 




CREATION-DATE 


5 digits: 2 digits for year followed by 3 digits for day of 
year . 




EXPIRATION-DATE 


5 digits: 2 digits for year followed by 3 digits for day of 
year. Indicates the first date the file might be overwritten. 
99999 is Indefinite retention. 




ACCESSIBILITY^ 


1 character. The tape cannot be read unless the value matches 
that written in the label. Default is blank. 




'Items can be specified, but t 
system reference manual for n 


his label field is not processed by the system. See the operating 
lore information about standard tape labels. 





data-name-2 



LINAGE IS {intl'e"-™'^} "-INES [, WITH FOOTING AT ^ rnteger-2 



)] 



( data-name-3 \"] f 
LINES AT TOP {i„teger-3 }\ [' 



i data-name-4 \\ 
LINES AT BOTTOM {i„teger-4 }\ 



Figure 4-8. LINAGE Clause Format 
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A separate special register LINAGE -COUNTER is 
generated for each file whose FD entry contains a 
LINAGE clause. The special register is an implicit 
unsigned integer item. The value in the special 
register for a given file is the current line 
number within one page body. The value is set to 1 
when the file is opened because the first line on a 
logical page is line 1. if neither LINES AT TOP 
nor LINES AT BOTTOM is specified, blank lines are 
written to position the page. If either LINES AT 
TOP or LINES AT BOTTOM is specified, the page must 
be positioned by other means. The special register 
can be referenced within the Procedure Division, 
but it cannot be directly changed by the program.. 
When more than one file is described with a LINAGE 
clause, all references to LINAGE-COUNTER must be 
qualified by file-name. 



All data-names specified in the LINAGE clause must 
reference elementary unsigned numeric integer da,ta 
items. Integers must bo unsigned and positive. If 
the file is an External file, all data-names must 
be defined in the Common-Storage Section. 



Data-name-1 or integer-1 specifies the number of 
lines that can be written and/or spaced on a 
logical page. The value of data-name-1 or lnteger-1 
must be greater than zero. 



Footings and margins are specified by the following 

phrases. The values In these phrases must be 

logically consistent with the page size. A value 
of zero can be specified for the margins. 

WITH FOOTING AT 

Specifies the line number within the page 
body at which the footing area begins. The 
value of data-name-2 or integer-2 must be 
greater than zero and less than the value 
specified by data-name-1 or integer-1. A 
footing ends at line data^name-1 or 
integer-1. Default value is lnteger-1. 

LINES AT TOP 

Specifies the number of lines at the top 
of a logical page. Zero lines can be 
specified. The default value is zero. 



LINES AT BOTTOM 

Specifies the number of lines in the bottom 
margin of a logical page. Zero lines can 
be specified. The default value is zero. 

If either LINES AT TOP or LINES AT BOTTOM 
are specified in the file, when the file is 
opened, a blank line with a Q in the 
carriage control position (to suppress 
auto-eJect) is written, followed by a blank 
line with a 1 in the carriage control 
position (to eject to the top of the 
page). Thereafter, no page eject carriage 
control characters are generated. Instead, 
a number of blank lines are written to 
position the page properly. These lines 
can contain double, triple, or suppress 
space printer control characters. If 
neither clause is specified, the position- 
ing is done with the normal page eject 
carriage control mechanism (that is, 1 in 
the first position of a line). Therefore, 
for normal printer output, neither clause 
is used. The usual use for these clauses 
is for terminal output. 



RECORD Clause 

The RECORD clause (figure 4-9) specifies information 
the system uses to determine record size (for all 
file organizations) and record type (for all file 
organizations, except word-address and relative). 
This same file organization information is deter- 
mined by the Record Description entry when the 
RECORD clause is omitted. 

For word-address files, the record type is always U 
(undefined). The program must set the record size 
correctly before a read operation can be per- 
formed. For read operations, the largest record 
description is used if the program has multiple 
record descriptions and no DEPENDING ON clauses 
(either OCCURS or RECORD) . Write operations use 
the size of the record specified in the WRITE 
statement. For relative files, the record type is 
always F (fixed-length). 

Table 4-3 shows the minimum and maximum record 
sizes that result from clause specifications. 
Sizes are calculated in 6-bit characters. 



Format 1 






RECORD CONTAINS [inteqer-1 


TO] 




mteger-2 CHARACTERS LDEPENDING ON data-name] 




Format 2 






R_ECOKD IS VAFsyiNG IN SIZE 


[[FROM integer-i; 




[TO intugur- 2. CIIARACTE-Rs] 


[DEPENUINCj ON rl.it.i 


■njmp^ 



Figure 4-9. RECORD Clause Format 
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TABLE 4-3. RECORD SIZE AND TYPE 



RECORD 
Clause 


Sequential, Indexed, Direct, 
Actual-Key 


Relative* 


Word- 
Addresst 


CYBER 
Rec. Mgr. 
Record Type 


Maximum 

Record 

Sizett 


Minimum 

Record 

Sizett 


Actual 
Record 

Sizett 


Actual 

Record 

Size 


Actual 

Record 

Size 


Omitted 














All Record Descrip- 
tions same size 


F 


Largest 
record 


Largest 
record 


Largest 
record 


Largest 
record 


Largest 
record 


Record Description 
not all same size; 
no OCCURS/ 
DEPENDING ON 


W 


Largest 
record 
plus 10 


Smallest 
record 
plus 10 


Named 
record 
size 
plus 10 


Largest 
record 


Named 

record 

size 


OCCURS/DEPENDING ON 
in the Record De- 
scription entry 


T 


Largest 
record 


Largest 
record 


Calculated 
from data- 
name 


Largest 
record 


Calculated 
from data- 
name 


OCCURS/DEPENDING ON 
not in Record De- 
scription entry 


W 


Largest 
record 
plus 10 


Smallest 
record 
plus 10 


Calculated 
from data- 
name 
plus 10 


Largest 
record 


Calculated 
from data- 
name 


RECORD CONTAINS 














Integer-2 CHARACTERS 


pttt 


Integer-2 
characters 


Integer-2 
characters 


Integer-2 
characters 


Integer-2 
characters 


Integer-2 
characters 


Integer-1 TO 
integer-2 CHARACTERS 


W§ 


Integer-2 
characters 
plus 10 


Integer-1 
characters 
plus 10 


Named 
record 
size 
plus 10 


Integer-2 
characters 


Named 

record 

size 


Integer-1 TO 
integer-2 CHARACTERS 
DEPENDING ON data- 
name in Record 
Description 


D 


Integer-2 
characters 


Integer-1 
characters 


Data- name 
value 


Integer-2 
characters 


Data-name 
value 


Integer-1 TO 
lnteger-2 CHARACTERS 
DEPENDING ON data- 
name not in Record 
Description 


W 


IntGger-2 
characters 
plus 10 


Integer-1 
characters 
plus 10 


Data -name 
value 
pli^s 10 


Integer-2 
characters 


Calculated 
from data- 
niime 


RECORD VARYING 














FROM 

lnteger-1 CHARACTERS 


w 


Largest 
record 
plus 10 


Integer- 1 
characters 
plus 10 


Named 
record 
size 
plus 10 


Largest 
record 


Named 

record 

size 


TO 

integer-2 CHARACTERS 


H 


Integer-Z 
characters 
plus 10 


Smallest 
record 
plus 10 


Named 
record 
size 
plus 10 


Integer-2 
characters 


Named 

record 

size 


FROM 

lnteger-1 

TO 

integer-2 CHARACTERS 


wS 


lnteger-2 
characters 
plus 10 


Integer-1 
characters 
plus 10 


Kamed 
record 
size 
plus 10 


Integer-2 
characters 


Named 

record 

size 
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TABLE 4-3. RECORD SIZE AND TYPE (Contd) 





Sequential, Indexed, Direct, 
Actual-Key 


Relatlvet 


Word- 
Address' 


RECORD 














Clause 


CYBER 


Maximum 


Minimum 


Actual 


Actual 


Actual 




Rec. Mgr. 


Record 


Record 


Record 


Record 


Record 




Record Type 


Sizett 


Sizett 


Sizett 


Size 


Size 


DEPKNDING ON data-name 














in Record Description 














KROM 


D 


[^rgosl 


Integer-; 


Data-name 


Largest 


Data-name 


intfgur-1 CHARACTERS 




record 


chdracLurs 


VH lUf 


record 


va 1 ue 


TO 


D 


lnteger-2 


Sm<iLlesL 


Datd-namt; 


lnteger-2 


Oata-name 


integer-2 CHARACTERS 




f h.irar ters 


record 


value 


characters 


value 


I'ROM 


I) 


lnLGger-2 


Integer -1 


DaLd-namo 


LiiLeger-2 


Data-name 


integer- 1 




rhiirricl ITS 


( n.iracters 


value 


characters 


v.i I ue 


TO 














integer-2 CHARACTERS 














DEPENDINC ON drfta-ndnif 














not in Record 














Description 
FROM 














W 


L.irgi-st 


1 iregHr-1 


Data-name 


Largest 


Calculated 


iiiU'iSLT-I CHARACTERS 




t<.'C'.'r(i 


iMnrao.ters 


value 


record 


from data- 






plus ". n 


plus 10 


plus 10 




name 


■TO 


w 


Tnterier-:l 


Sin-ilL..-sl 


D.ita-name 


Integer-2 


Calculated 


inteKer-2 CHARACTERS 




i:h;ir<ii.tLTs 


TL'tord 


VM ': ue 


characters 


trom data- 






pluh 10 


plus '.0 


plus 10 




name 


i'ROM 


w 


l-itPf,er-2 


I.itoger-i 


Da td- name 


Intuget-2 


Calculated 


integer-i 




chirficters 


chdrrfcl iTH 


va ] Uf; 


(-ii.iractei h 


from datj- 


TO 




plus '."• 


i:lus iO 


pins 10 




name 


intefiPr-2 CHARACTERS 














tword-address files are always set to RT=U. Relati\ 


e files are always set to RT=U. 




Tilf RT=Z, size in storage is increased if necessary 


to place a zei 


"O-byte terminator in bits 




through U of the last word. 








^Record type Z if the file name is INPUT, OUTPUT, or 


PUNCH. 






S Record type T if data-name is in Record Description 


for entry with OCCURS DEPENDING ON. 





NOTE 

Refer to appendix F for recommendations on 
the use of the RECORD clause. 



in the record is included in the summation. This 
sum might be different from the actual size of the 
record. 



The size of the record indicated in this clause 
must be the number of character positions required 
to store the record, regardless of the types of 
characters used to represent the items within the 
logical record. For instance, items described by a 
USAGE clause containing COMP-1 or INDEX occupy a 
full memory word and have a size of 10 characters, 
no matter what the maximum number of digits in the 
value of the item; any item described with a 
SYNCHRONIZED clause must take slack characters into 
account; and so forth. The size of a record is 
determined by the sum of the number of characters 
in all elementary data items. The size of the 
maximum number of table elements. If any, described 



In format 1, integer-2 must not be used by itself 
unless all the data records in the file have the 
same size. In this case it specifies the exact 
number of characters in each record. If integer-1 
and integer-2 are both specified, integer-1 is the 
minimum number of characters in any record and 
integer-2 is the maximimi number of characters. 
Integer-2 must be greater than integer-1. Unsigned 
positive integers are required. 



In order Lo provide compaL i bl^ lly witli future ANSI 

sLcJudards, lormat 2 cdn be used to spciify Vdrmbie 

cr.gth records. If inti'ger-2 i •< .loC specified in 

fiirm.it 2, the minimum record size is the size ot 
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the smallest record defined by the record descrip- 
tions. If lnteger-2 Is not specified, the maxlnum 
record size Is the size of the longest record 
defined by the record description. 

The DEPENDING ON phrase specifies the data item 
that contains, during execution, the exact number 
of characters in the record being referenced. 
Data-name, which can be qualified, must be described 
as an unsigned integer Item. The data Itea can, 
but need not, be within the record. When it Is 
within the record, data-name must be wj thin the 
minimum size and must be described with USAGE IS 
DISPLAY, COMP-1, or COMP-4; its PICTURE clause can 
describe a maximum of 6 digits. If the file is an 
External file, data-name must be defined in the 
Coimion-Storagc Section. 



NOTE 

Because of anticipated changes in this 
product, use of the RECORDING MODE clause 
is not recommended. For guidelines, see 
appendix F. 



REPORT Clause 

The REPORT clause names the reports that are to be 
produced. ifx."the file Is an External file, the 
!ffilOSr,;c'i,a,u»e"can<jQ,t be. specified. See section 6, 
Report Writer Facility. 



RECORD DESCRIPTION ENTRY 



When a record described by this phrase is being 
written by execution of a RELEASE, REWRITE, or 
WRITE statement, the program must set the data item 
to the number of characters in the record before 
the output statement is executed for a given 
record . When such d record is read by a READ or 
RETURN statement, the system returns tu the data 
item the number of chararters in the record Just 
read. 



A Record Description entry consists of a set of 
Data Description entries that furnish Information 
about the physical structure and identification of 
a record. It begins with a level 01 Data Descrip- 
tion entry and ends immediately before the next 
level 01 Data Description entry or the end of the 
section. A Record Description entry can appear in 
any section of the Data Division except the Report 
Section. 



For word-address files, the program is responsible 
for setting the data item prior to each READ or 
WRITE statement for a file record. 



RECORDING MODE Clause 

The RKCORDINC; MODE clause (figure 4-10 J has meaning 
only for tape files. It specifies the data conver- 
sion, it any, that occurs between internal system 
codes and the external code wrLLten to Lhf t.ipo. 



RECORDING MODE IS 


1 DECIMAL 1 
'.BINARY 1 



Figure 4-10. RECORDING MODE Clause Format 

When tht- clause '' s omitted, tlie Jefaiilt Is 
determined by thu Record Doscripflon entry. BTXARY 
is the default for files with block type I and 
record typu W ( se-; tabic 4-3 ar.d the BLOCK CONTAINS 
clause). DECIMAL is the default for all other 
files. 

DECIMAL 



The general format is shown in figure 4-11. 
Data-descrlption-entry-1 must have level number 01; 
data-descrlption-entry-2 must have a level number 
greater than 01. Data Description entries are 

discussed on the following pages. 



data-descriptlon-entry-1 
[data-descrlption-entry-2] 



Figure 4-11. General Record Description Entry Format 

In the File Section, Record Description entries are 
associated with files. Each file can have records 
with different elementary and group Items inter- 
mixed. A file can have more than one level 01 
entry; each level 01 entry is a redefinition of the 
memory area associated with that file. The maximum 
size of any group or elementary entry within the 
record must not be greater than 32767 characters. 

In sections other than the File Section, data can 
be grouped into logical records and defined by a 
series of Record Description entries, each of which 
describes a unique memory area, unless the entry is 
redefined by another Record Description entry. 



Conversion occurs. For 7-track tape files, 
translation is made with External .1CD 
codiis. For 9-track tape files, translation 
is mado with ASCII or EBCDIC codes, depend- 
ing on the parameters on the cor.Urol 
statement that requests the tape. 



B INARY 



Ko conversion occurs. BINARY should be 
specified for 7-track tape files when any 
of the records contains binary zero charac- 
ter codes or items described by USAGE IS 
INDEX, COMP-1, COMP-2, or COMP-4, BINARY 
must be specified for tapes in I format. 



DATA DESCRIPTION ENTRY 

A Data Description entry specifies the character- 
istics of a particular item of data. Each entry 
consists of the following ordered elements: 

Level-number 

Data-name or the keyword FILLER that names the 
data item, or condition-name 

Series of Independent clauses that describe the 
data Item 

Terminating separator period 
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Format 1 



level-number 



Format 2 



Format 3 



data-name-1 
FILLER 



[; REDEFINES clause] I, EXTERNAL clause! 



BLANK WHEN ZERO clause! [; JUSTIFIED clause] [; OCCURS clause] 
PICTURE clause] [; SIGN clause] [; SYNCHRONIZED clause] 
USAGE clause] [; VALUE clause] . 

66 data-name-l; RENAMES clause. 



88 condition-name; VALUE clause. 



Figure 4-12. Data Description Entry Format Skeletons 



Figure 4-12 shows the skeletons of the three 
formats of the Data Description entry. Punctuation 
between format elements is optional. 

Format 1 is the full entry to describe data of 
level 01 through 49 and level 77. 

Format 2 is an entry with a 66 level-number 
that renames prior group or elementary items. 

Format 3 is an entry with an 88 level-number 
that assigns condition-name values. 

Level-nvmiber is the first element of a Data 
Description entry. Level-number consists of two 
digits in the range 01 through 49, 66, 77, or 88. 
Level-number values 1 through 9 can be written 
either as a single digit or as a zero followed by a 
digit 1 through 9. 

Levels 01 through 49 describe the hierarchy of data 
items: that is, they define record, group, and 
elementary items. Levels 66, 77, and 88 have 
special meaning and do not define the hierarchy of 
the item described . 

Entries with level-nimiber 01 or 77 must begin in 
area A of a line; the following data-name or FILLER 
should begin in ari-ii B ;]jLhr)ugb .i wuij i-i .ire.-i A i .■; 
iiccepted. TT (l.iLa-namc ;ind FILLER are both 

omitted, FILLER 1s as.<;iunpd . 

Successive entries can be indented to improve 
readability of the source listing. Indentation 
does not affect the magnitude of a level-number. 

The maximum size of any group or elementary entry 
is 131071 characters. 

Table 4-4 summarizes Data Description entry clauses 
and the level-number of the entry in which they can 
appear. The individual clause descriptions contain 
additional information about clause interactions 
and restrictions on clause use. 



Format 1 Data Description Entry 

In format 1, level-number can be 77 or In the range 
01 through 49. Clauses can be in any order, except 



TABLE 4-4. DATA DESCRIPTION ENTRY CLAUSE USE 



Clause 


Level of Entry 


01 


02-49 


77t 


66tt 


88 tt 


BLANK WHEN 


yes 


yes 


yes 


no 


no 


ZERO 












EXTERNAL 


yes 


no 


no 


no 


no 


JUSTIFIED 


yes 


yes 


yes 


no 


no 


OCCURS 


no 


yes 


no 


no 


no 


PICTURE 


yes 


yes 


yes 


no 


no 


REDEFINES 


yesttt 


yes 


yes 


no 


no 


RENAMES 


no 


no 


no 


yes 


no 


SIGN 


yes 


yes 


yes 


no 


no 


SYNCHRONIZED 


yes 


yes 


yes 


no 


no 


USAGE 


yes 


yes 


yes 


no 


no 


VALUE 


yesttt 


yesttt 


yesttt 


no 


yes 


tApplicable 


only in 


Coram on-Storage, 






Working-St( 


jrage , an 


d Linkage Sectio 


ns . 




ttNot applic. 


ible in S 


econdary-Storage 


or Report 


Section. 










IIIno in File 


Section. 









that any REDEFINES clause must immediately follow 
data-name or FILLER. Clauses are presented below 
in alphabetical order. 



Level 01 through 4 9 

Data Description entries that begin with level- 
number 01 through 49 can appear in any section of 
the Data Division. A level 01 entry with a 
REDEFINES clause, however, cannot appear in the 
File Section. 
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A Data Description entry with level-number 01 is a 
Record Description entry. Levels 02 through 49 
indicate the organization of elementary and group 
items within the record. 

Aa elementary item is defined as an item whose 
level-number is equal to or greater than the 
level-number of the next item. The PICTURE 
clause must be specified for every elementary 
item, except for data items described as USAGE 
IS INDEX or COMP-2. The clauses PICTURE, 
JUSTIFIED, and BLANK WHEN ZERO are valid only 
for elementary items. 

A group item is defined as an item whose 
level-number is less than that of the next 
item. A group item includes all group and 
elementary items following It until a level- 
number less than or equal to the level-number 
of that group is encountered. 

NOTE 



entry is allowed only in the Common-Storage, 
Working-Storage, and Linkage Sections of the Data 
Division. 

NOTE 

Because of anticipated changes in this 
product, use of level 77 items is not recom- 
mended. For guidelines, see appendix F. 



A data-name or the keyword FILLER must be the first 
word following 77 (for strict ANSI usage) as 
described in the precedlM discission f^^^^^^ 



through 49 items . 

omitted, FILLER is assumed. 

Examples of level 77 entries are: 

77 RECS-READ PICTURE 9(5). 
77 CONSTANT-MULTIPLIER USAGE IS COMP-2 
VALUE IS 3.6. 



Refer to appendix F for recommendations on 
the use of group items. 

Level-numbers within a group item need not be 
consecutive; however they must be ordered so that 
the higher the level-number the lower the entry in 
the hierarchy. Items which are immediately 
subordinate to a group item need not have an 
Identical level-number, but the subordinate items 
must have a level-number greater than that of the 
group item. An item whose level number is less 
than or equal to the level number of a given 
preceding item is not subordinate to that item. 

A data-name or the keyword FILLER must be the first 
word following level -number , for strict ANSI 
usage. If data-name and FILLER are both omitted, 
FILLER is assumed. 

Data-name 

Specifies the name of the data item being 
described. Syntax must conform to the 
rules for user-defined words. Data-names 
can be referenced explicitly elsewhere in 
the program. 

FILLER 

Specifies an elementary or group Item that 
cannot be referenced explicitly. The 
contents of a group item named with FILLER 
can be referenced only by referencing the 
data-names or condition-names of Its 
constituent items. 

An example of a group item with two elementary 
items is: 

03 FULL-NAME. 

25 LAST-NAME PICTURE X(15). 
25 F-INITIALS PICTURE X(3). 



Level 77 

A Data Description entry with level-number 77 
identifies an independent, noncontiguous data Item 
that is not a subdivision of another data Item. A 
level 77 entry cannot itself be subdivided. The 



Format 2 Data Description Entry 

In format 2, the Data Description entry begins with 
level-number 66. Data-name must follow level 66, 
as described for format 1. Level 66 Items rename 
elementary and group items. Only the RENAMES 
clause is valid. 

The RENAMES clause is required in, and only 
permitted in, a level 66 entry. The entry must 
follow all entries of the highest group level of 
which the renamed item is a subentry. The RENAMES 
clause cannot rename a level 66, 77, 88, or 01 item. 

An example of a level 66 item specification is: 

20 IN-GROUP-1 PICTURE X(20). 
20 IN-GROUP-2. 
25 ITEM-2 PICTURE XXX. 
25 ITEM-3 PICTURE XX. 
66 OUT-GROUP RENAMES IN-GROUP-1 THRU 
IN-GROUP-2. 



Format 3 Data Description Entry 

In format 3, the Data Description entry begins with 
level-number 88. A condition-name must follow 
level 88. Level 88 entries specify condition-names 
that are associated with particular values of a 
conditional variable. (A conditional variable is a 
data Item that is followed by one or more level 88 
entries.) The conditional variable can be FILLER. 

Level 88 entries must Immediately follow the 
conditional variable to which they apply. A 
condition-name can be associated with any Data 
Description entry except; another condition-name, 
a level 66 item, an item described by USAGE IS 
INDEX, or a group item containing items specified 
with the JUSTIFIED or SYNCHRONIZED clause or usage 
other than display. The description of the condi- 
tional variable implicitly describes condition-name. 

An example of level 88 item specification is: 

05 PASS-OR-FAIL PICTURE 999. 

88 PASS-EM VALUE IS 70 THRU 100. 

88 FAIL-EM VALUE IS THRU 69. 
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BLANK WHEN ZERO Clause 

The BLANK WHEN ZERO clause (figure 4-13) blanks a 
numeric item when a zero value is moved to that 
item. The clause is an alternative to a PICTURE 
clause with editing symbols to cause blanking. The 
clause can be used only for an elementary item 
described by USAGE IS DISPLAY and whose picture 
defines a numeric or numeric edited item. The 
category of the item is always considered to be 
numeric edited. 



( JUSTIFIED ) 
\ JUST ) 



RIGHT 



BLANK WHEN ZERO 



Figure 4-13. BLANK WHEN ZERO Clause Format 

The clause cannot be used when the PICTURE clause 
of an item Includes an asterisk for zero 
suppression. 



EXTERNAL Clause 

The EXTERNAL ciaubc specifics IhaL a daLa itom Is 
external to Che prngram. \n external drfl.i iicm and 
its subordinate items jre .ivaixaolo to every 
piogrrim in the run unit thjL describes rl»' ddta 
item. Cidubc formiit 't: 

IS EXTE R NAL 

The E.XTERKAI clause is ml> spccidt'd f jr Ii-vl'I Oi 
items in thi- Wnrking-Storage-Section. i"he EXTERNAL 
clause and the REDEKINES clause must not both be 
-qpectfled for the same item. The VAU'i' rlause must 
not be specxficd tor an item that incljdes, oi is 
subordinate to an item th.i*- includes, Lhu ^XTERNAL 
clause. 

Only ihi' I irst seven chaiarters of l hi- name oC a 
level 01 exrerual -■ Li'm nre used to comraunlcTfe 
between progiomb ii a run U'.it. Ihtrefore, the 
names ol all ]pvel 01 exLernal itens must he u.U(|u.- 
in the first seven Lharactpis. 

If two or more piograms in a run utLI describe the 
same externa" d.it.i i Le-a, the des r .T-Ions must he 
identical' However, an exiei-i.i, i Lem can hi- 
re def ined- 



JUSTIFIED Clause 

The JUSTIFIED clause (figure 4-14) specifies 
nonstandard positioning of data In a receiving data 
item. It can only be specified for a nonnumeric 
elementary item for which no editing is specified. 
JUST is an abbreviation for JUSTIFIED. 



Figure 4-14. JUSTIFIED Clause Format 

When the JUSTIFIED clause is specified for a 
receiving item smaller than the sending item, 
the leftmost characters of the sending item are 
truncated. 

When the JUSTIFIED clause is specified for a 
receiving item larger than the sending item, the 
data is aligned at the rightmost position in the 
receiving item and the unused leftmost character 
positions of the receiving item are filled with 
spaces. 

When the JUSTIFIED clause is omitted from a 
receiving item, the standard rules for aligning 
data within an elementary item apply. 



OCCURS Clause 

The OCCURS clause (figure 4-15) specifies the 
number of occurrences of a repeated data item and 
supplies information required for the application 
of subscripts and indexes. It is used in defining 
tables and other homogenous sets of repeated data 
items. The clause has two formats: 

Format 1 specifies the exact number of times an 
item repeats. 

Format 2 specifies the range of the number of 
times an item repeats and identifies the data 
item that determines the exact repetition 
during execution. 



All Data Description entries subordinate to an item 
whose description Includes an OCCURS clause apply 
to each repetition of the item described. An item 
containing both OCCURS and SYNCHRONIZED clauses is 
synchronized at each occurrence. 

The OCCURS clause must not be specified in a 
Data Description entry that contains any of the 
following: 

Level-number 01, 66, 77, or 88 

Subordinate data item with a format 2 OCCURS 
clause 

VALUE clause in either the entry itself or a 
subordinate entry 
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Format 1 

OCCURS integer-1 TIMES 



[{ ggggSc t ■''^ ■' ^'^t.-.an.^-^ I data-name-2] . . . j . 
INDEXED BY index-name-1 [, index-name-2] . . .1 

Format 2 

OCCURS integer-1 TO integer-2 TIMES DEPENDING ON data-name-1 

[{ SI^eS g } "^^^ '^ data-name-2 [. data-name-3] ...]., 

INDEXED BY index-name-1 [, ind6x-name-2] . . .1 



Figure 4-15. OCCURS Clause Format 
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Whenever an OCCURS clause Is specified for a Data 
Description entry, the entry and any subordinate 
entries must be either subscripted or Indexed 
whenever they are referenced, except in a SEAKCH 
statement, in a USE FOR DEBUGGING statement, or as 
the object of a REDEFINES clause. 

All data-names in the clause can be qualified. 
Integers must be positive. The value of integer-2 
cannot be zero or greater than the number of occur- 
rences of the repeated data item. The maximum 
number of occurrences allowed for a repeated data 
item is 65535. 

Neither integer-1 nor integer-2 can exceed 131071 
characters . The product of the number of character 
positions subordinate to this Item and integer-1 or 
integer-2 cannot exceed 131071. 



No entry containing an OCCURS clause can appear 
between the Items identified by the data-names 
in the KEY IS phrase and the subject of the 
entry. That is, a key item cannot be subordi- 
nate to an occurring item which is subordinate 
to the subject of this entry. 



The INDEXED BY phrase specifies the indexes that 
are used to index repeated data items. It is 
required if the subject of the entry containing the 
OCCURS or one of its subordinate entries is to be 
referred to by indexing. The index-name must be a 
unique name that is not specified elsewhere in the 
program; the item is allocated and formatted by the 
compiler and cannot be associated with any data 
hierarchy. Some examples of format 1 OCCURS clause 
usage are shown in figure 4-16. 



Format 1 OCCURS 



Format 2 OCCURS 



In format 1 , the value of integer-1 represents the 
exact number of occurrences of the repeated data 
item. Data-name cannot appear in more than one 
OCCURS clause. 

The KEY IS phrase Indicates the order in which 
repeated data items are sequenced. This phrase 
must be Included when a SEARCH ALL statement is 
used to search the table for an element satisfying 
a particular condition. The data-names are listed 
in their descending order of significance. Data- 
name-1 can be either the name of the entry con- 
taining the OCCURS clause or the name of an entry 
subordinate to the entry containing the clause. 
Data-name-2 must be the name of an entry subordinate 
to the entry containing the OCCURS clause. 

If data-name-1 is not the name of the entry 
containing the OCCURS clause, then: 

All of the items Identified by the data-names 
in the KEY IS phrase must be within the group 
item that is the subject of this entry. 



In format 2, the subject of the entry has a 
variable number of occurrences. Integer-1 is the 
mlnlmtxD number of occurrences of the repeated item; 
integer-2, which must be greater than integer-1, is 
the maximum number of occurrences. 

Data-name-1 is the item that contains the number of 
occurrences at any given time. If it is within the 
Record Description containing the OCCURS clause, it 
must be within the fixed portion; It must not be 
within the entry containing the OCCURS clause 
itself. The value of data-name-1 must fall within 
the range of integer-1 and integer-2, inclusive, 
during execution and must be unsigned. An attempt 
to reference an occurrence outside the limits set 
by the integer-1 and integer-2 range causes 
unpredictable results. 

When a format 2 clause is subordinate to a group 
Item, a reference to the group item involves only 
the part of the table area that is specified by the 
value of data-name-1. Data names are evaluated 
once before the reference operation takes place. 



Items identified by the data-names in a KEY IS 
phrase must not contain an OCCURS clause. 



The KEY IS and INDEXED BY phrases are the same as 
for format 1. 



The table PARTS-LIST contains 1000 entries, 100 lower level entries for each 03 level entry 
and 10 entries at the 03 level. To reference the table with subscripts it must be redefined 
using OCCURS: 

01 PARTS-TABLE REDEFINES PARTS-LIST. 

03 LIST OCCURS 10 TIMES. 

05 PART PICTURE 9(10) OCCURS 100 TIMES. 



b. A table to be searched by the SEARCH ALL statement can be described as: 

02 DATA-LIST OCCURS 25 TIMES INDEXED BY LIST-INDEX, 
DESCENDING KEY IS ITEM-KEY, ITEM-KEy-2. 
04 ITEM-KEY PICTURE X. 
04 ITEMA OCCURS 10 TIMES INDEXED BY ITEM-INDEX. 

06 AVALUE PICTURE 9(7). 

88 VALA VALUES ARE 1 THRU 999999. 
04 ITEM-KEY-2 PICTURE IS 99. 



Figure 4-16. Example of OCCURS Clause 
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A data description entry containing format 2 of the 
OCCURS clause may only be followed, within that 
record description, by data description entries 
subordinate to it . 



Every elementary item belongs to both a category 
and a class. Any group item is treated during 
execution as if it belonged to the alphanumeric 
class, regardless of the class of elementary items 
subordinate to that group item. 



PICTURE Clause 

The PICTURE clause (figure 4-17) describes the 
general characteristics and editing requirements 
for an elementary item. (The physical repre- 
sentation of data within memory is influenced by 
the USAGE clause.) It must be specified for every 
elementary item, except that it must not be speci- 
fied for an item with a USAGE clause specifying 
INDEX or C0MPr2. -, 



( PICTURE \ 

I IS character-string 



(PIC 



Figure 4-17. PICTURE Clause Format 

The character-string specifies, by its combination 
of allowable characters from the COBOL character 
set, the category of the elementary item. It also 
specifies the size, location of decimal point, and 
the presence or absence of a sign. 

The maximum number of symbols allowed in the 
character-string of the clause format is 30. Since 
repeating symbols can be Indicated by an unsigned 
nonzero Integer enclosed in parentheses after the 
symbol to be repeated, the character-string limit 
does not limit the value of the data or the nimiber 
of character positions in the item in storage. 

The six categories of data that can be specified by 
a PICTURE character-string and the class to which 
each belongs are shown in table 4-5. Table 4-6 
specifies the symbols that can appear in the 
character-string for each category and the contents 
allowed in the data Item. 



When specifying a PICTURE character-string, the 
following apply: 

The number of character positions described 
cannot exceed 131071. 

The size of an elementary item is determined by 
allowable symbols that represent character 
positions. Multiple repeating symbols can be 
Indicated by an unsigned nonzero integer 
enclosed in parentheses following the symbols A 
,X9PZ/*0+-Blor the currency symbol. 

The symbols S V . CR and DB can appear only 
once in a given picture. 

Numeric and numeric edited items are limited to 
a maximum of 18 digit positions. A sign 
described with a SIGN IS SEPARATE phrase 
occupies a character position, but is not 
included in the digit position count. 

A numeric edited item must contain at least one 
of the symbols OB/ Z * + , . - CR DB or the 
currency symbol. 

An alphanumeric edited item must contain at 
least one of the following combinations of 
symbols : 

B and X 

and X 

/ and X 

and A 

/ and A 



TABLE 4-5. CLASSES AND CATEGORIES 
OF DATA ITEMS 



Level of Item 


Class 


Category 


Elementary 


Alphabetic 


Alphabetic 


Numeric 


Numeric 


Ip^ile^:''-; ;" '.., ' 


Boolean 


Alphanumeric 


Numeric Edited 
Alphanumeric Edited 
Alphanimieric 


Group 


Alphanumeric 


Alphabetic 

Boolean 

Numeric 

Numeric Edited 

Alphanumeric Edited 

Alphanumeric 



Symbols Used in Character-Strings 

Each of the symbols used to describe an elementary 
item has a specific function. 



Represents a character position that can 
contain either a letter or a space. 



Represents a character position into which 
the space character is to be inserted. 



Indicates an assumed decimal scaling 
position and the location of the assumed 
decimal point when the point is not within 
the number that appears in the data item. 
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TABLE 4-6. PICTURE CLAUSE SYMBOLS ALLOWED BY ITEM CATEGORY 







Allowable Symbols 

in PICTURE 
Character-String 


Contents of 
Item 


Usage Examples 


Category 


PICTURE of Item 


Source Data 


Item 


Alphabetic 


A B 


Letters and 
spaces 


AAAAA or A(5) 


COSTS 






IClOlSlTlSl 




Boolean 


1 


Numerals 
and 1 


ill or 1(3) 


B "Oil" 




lolihl 




Numeric 


Unsigned 


9 V P 


Digits 


999 

99V999 

PPP9999 


123 

12.345 

.0001234 


.0 


Il|2|3| 




|1|2|3|4|5| 


, 


0|1|2 3|4| 


Signed 


9 V P S 


Digits + - 


S99V99 

SPPP9999 

S999PPP 


+12.34 

-.0001234 

-123000. 


t°° 


|1|2 3|4| 


' 


0|1|2 3|4| 




|1|2|3|0 0^ 




Alphanvnneric 
(vrtthout editing) 


A X 9 


All characters 
in COBOL 
character set 


XXXXXXXX or X(8) 

XXXXXXXX or X(8) 

AAAA999 or 
A(4)9(3) 


ABCD-*** 
123.4567 
ABCD123 




|A|B|C|D1-|*|*|*| 




Ill2l3|.|4l5l6|7i 




|A|B|C|D|li2|3| 




Alphanumeric 
Edited 


A X 9 B / 


All characters 
in COBOL 
character set 


AAOOAA 
XXB6XX 
XOXOXO 
XB(3)X0(4)X 


WXYZ 
AlBl 
ZXY 

N15 




|w|x|o|o|Yiz| 




!A|liA|A|B|l| 




|Z|0|X|0|Y|0| 




|N|A|A|A|1|0|0|0|0|5 




Numeric Edited 


B / P V Z 9 . 
. * + - CR DB 
Currency symbol 


Digits 


See the discussions below: 
Floating Insertion Editing 
Zero Suppression and Replacement 


Editing 


t assumed decimal point 
A blank 



The scaling position character P: 

Is not counted in the size of the data 
item, but is counted in determining the 
maximum number of digit positions (18) 
In numeric edited and numeric items 



Indicates the presence of an operational 
sign. It does not necessarily specify 
either the position or the representation 
of the sign. See the SIGN clause. 



Is considered to contain the value zero 

Can only appear as the leftmost or 
rightmost character or continous 
character string of P's within a 
PICTURE description, implying an 
assumed decimal point to the left or to 
the right, respectively 

Is redundant when used with the V 
character 

Cannot appear in the same character- 
string as the symbol . (period) 



The S is not counted in determining the 
size of the item unless the entry includes 
a SIGN clause that specifies the optional 
SEPARATE CHARACTER phrase. 



Indicates the location of the assumed 
decimal point. It does not represent a 
character position and Is not counted in 
the size of the data item. 
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Only one V can appear in a character- 
string. It is redundant in a character- 
string that has the scaling position 
character P and redundant as the rightmost 
character in a character-string. 



DB 



Represents a character position 
contain any allowable character. 



that can 



Represents a leftmost leading nimeric 
character position that is to be replaced 
by a space character when the contents of 
that character position Is zero. 



Represents two character positions into 
which the editing sign DB is to be inserted. 
Only one of the editing sign control 
symbols + - CR or DB can be used in a given 
character-string. 



Represents a character position into which 
the plus sign is to be inserted. Only one 
of the editing sign control symbols + - CR 
or DB can be used in a given 
character-string. 



Represents a boolean character position 
that can contain either a zero or a ono. 
It represents a standard data turmat 
character. 



Represents a character position into which 
the minus sign is to be inserted. Only one 
of the editing sign control symbols + - CR 
or DB can be used in a given 
character-string . 



Represents a digit position that can 
contain a numeral. 



Represents a leading numeric character 

position into which an asterisk is to be 

Inserted when the content of the position 
is zero. 



Represents a character position into which 
a zero is to be Inserted. 



The currency symbol represents a character 
position into which the designated currency 
sign is to be Inserted. 



Represents a character position into which 
the slash character is to be inserted. 



Represents a character position into which 
the comma is to be Inserted. 

If the DECIMAL-POINT IS COMMA clause is 
specified in the SPECIAL-NAMES paragraph, 
the function of the period and comma are 
exchanged, causing the rules for the period 
to apply to the comma and the rules for the 
comma to apply to the period. 



The currency symbol can be either the 
currency sign ($ and #, or its equivalent 
graphic character) or the single character 
specified in the CURRENCY SIGN clause of 
the SPECIAL-NAMES paragraph. 

The symbol $ or # or the character desig- 
nated by CURRENCY SIGN clause are valid 
currency symbols in the same program, but 
not in the same picture. 

Table 4-7 summarizes the symbols of the clause, the 
number of times they can be used in a single 
PICTURE clause character-string, and the resulting 
size. 



CR 



Represents the decimal point for alignment 
purposes and a character position into 
which the period is to be inserted. 

If the DECIMAL-POINT IS COMMA clause is 
specified in the SPECIAL-NAMES paragraph, 
the function of the period and comma are 
exchanged, causing the rules for the period 
to apply to the comma and the rules for the 
comna to apply to the period. 



Represents two character positions into 
which the editing sign CR is to be inserted. 
Only one of the editing sign control 
sjnmbols + - CR or DB can be used in a given 
character- string . 



Editing Rules 

Two types of editing can be specified in the 
PICTURE clause: 

Insertion editing, which places a character in 
the position indicated. Different types of 
insertion editing are; simple insertion, 
special Insertion, fixed insertloti, and 
floating insertion. 

Replacement editing, which replaces leading 
zeros in the data with spaces or asterisks. 

The type of editing that can be defined for a given 
data item depends on the category to which the Item 
belongs as shown in table 4-8. 
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TABLE 4-7. PICTURE CLAUSE EDITING SYMBOL FUNCTIONS AND LIMITS 



Symbol 



A 
B 
P 



X 

z 

9 

1 

/ 



OR + 
DB - 



currency 
symbol 



Function Symbol 
Represents 



Letter or space 

Space 

Assumed decimal scaling 
position 

Operational sign 

Location of assumed decimal 
If P omitted 

Any language character 

Blank leading zero Indicator 

Digit position 

Boolean character 

Zero Insertion position 

Slash insertion position 

Comma insertion position 

Decimal point position if 
P omitted 

Sign position 



Asterisk replace leading 
zero indicator 

Currency symbol position 



Number of 

Times Symbol 

Can Occur in 

Picture 



no limit 



no limit 



no limit' 



no 


limit 


no 


limit''' 


181 




no 


limit'*' 


no 


limit''' 


no 


limit''' 


no 


limit''' 


1 




1 of 4 symbols 


no 


limit"'' 



Number of Positions 
in Total Item Size 



1 for each symbol 
1 for each symbol 



1 if SEPARATE CHARACTER; 
otherwise none 



1 for each symbol 

1 for each symbol 

1 for each symbol 

1 for each symbol 

1 for each symbol 

1 for each symbol 

1 for each symbol 
1 



2 for CR or DBj 
1 for + or - 



1 for each symbol 



tif total of digits and editing characters exceeds 
truncation occurs during item use. 



18 for numeric and numeric edited items, 



Simple Insertion Editing 



TABLE 4-8. EDITING ALLOWED FOR SPECIFIC 
DATA CATEGORIES 



Simple insertion editing is specified in a 
PICTURE character-string by an Insertion 
symbol B , or / . An insertion symbol 
represents the position in an item into 
which a space, zero, comma, or slash is 
inserted when data is placed In that item. 



When the comma is the rightmost symbol in a 
PICTURE character-string, the PICTURE 
clause must be the last clause of the Data 
Description entry. This results in either 
the combination of ,. or, if the DECIMAL- 
POINT IS COMMA clause is specified in the 
SPECIAL-NAMES paragraph, two consecutive 
periods appearing in the Data Description 
entry. 



Category 


Editing Allowed 


Alphabetic 


Simple insertion of 
space 


Numeric 


None 


Alphanumeric 


None 


Alphanumeric edited 


Simple insertion of 
space and/ or / 


Numeric edited 


All 


Boolean 


None 
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Special Insertion Editing 

Special insertion editing Is specified in a 
PICTURE character-string by the period. 
The period, which represents the decimal 
point for alignment purposes, is counted In 
the size of the item. 

When a decimal point is the rightmost 
symbol in a PICTURE character-string, the 
PICTURE clause must be the last clause of 
the Data Description entry. This results 
in either two consecutive periods or, if 
the DECIMAL-POINT IS COMMA clause is 
specified in the SPECIAL-NAMES paragraph, 
the combination of , . appearing In the 
Data Description entry. 

Fixed Insertion Editing 

Fixed insertion editing is specified in a 
PICTURE character-string by a currency 
symbol or one of editing sign control 
symbols + - CR or DB. The rules for fixed 
insertion editing are: 

Only one currency symbol and one 
editing sign control symbol can appear 
in a given PICTURE character-string. 

The symbols CR and DB represent the two 
rightmost character positions of the 
item. 

The symbol + or - can be either the 
leftmost or the rightmost character 
position of the item. 

The currency symbol must be the 
leftmost character position to be 
counted In the size of the item, except 
that it can be preceded by a + or - 
symbol . 

The final contents produced by the editing sign 
control symbols is affected by the value of the 
data item being edited as shown in table 4-9. 



TABLE 4-9. 



RESULTS OF FIXED INSERTION 
EDITING 



Editing Symbol 


Result When 

Data Item 

Positive or Zero 


Result When 
Data Item 
Negative 


+ 


+ 


_ 


- 


1 space 


- 


CR 


2 spaces 


CR 


DB 


2 spaces 


DB 



Floating Insertion Editing 

Floating insertion editing is specified in 
a PICTURE character-string by a string of 
at least two floating insertion symbols. 



Floating insertion editing results in 
characters appearing in the data item in a 
position appropriate for each particular 
data value, within the limits of the 
editing specification. 

The floating insertion editing symbols are 
the currency symbol, and the + and - 
signs. If the fixed insertion symbols CR 
or DB are part of the string, they must be 
the rightmost symbols. The currency symbol 
and the + or - symbol are mutually exclusive 
when they are used as floating insertion 
symbols. 



The leftmost character of the floating 
string represents the leftmost limit of the 
floating symbol in the data item, and the 
rightmost character represents the right- 
most limit. The second leftmost character 
of the floating string represents the limit 
of the numeric data that can be stored in 
the item. 

The floating string can be structured in 
two ways: either any or all of the leading 
numeric character positions to the left of 
the decimal point are represented by the 
insertion character, or all of the numeric 
character positions are represented by the 
Insertion character. 



When the insertion characters are only to 
the left of the decimal point, a single 
floating insertion character is placed in 
the character position immediately preceding 
either the decimal point or the first 
nonzero digit in the item, whichever 
is farther to the left In the PICTURE 
character-string. The characters preceding 
the placement of the floating insertion 
character are replaced with spaces. 



When all numeric characters in the character 
string are represented by the floating 
insertion character and the entire data 
item is zero, the entire data item will be 
replaced with spaces. If the data is not 
all zeros, floating Insertion editing is 
handled the same as if the Insertion char- 
acters were not placed to the right of the 
decimal point. 



Simple insertion editing characters , B 
and / can appear among the floating string 
characters, but cannot be the leftmost 
symbols in the string. Floating string 
processing takes precedence In this 
Instance: spaces always appear to the left 
of the properly placed floating character. 
Simple insertion characters that are not 
enclosed in the floating string appear as 
indicated in the character-string of the 
clause . 

Some examples of floating insertion editing 
are shown in table 4-10. 



4-20 



60497100 J 



TABLE 4-10. E3CAMPLES OF FLOATING INSERTION 
EDITING 



Picture 


Source Data 


Item 


$$$9.99 

9.99 

+++9.99 

$$$.99 

$$$$9 

$$$$9 

$$$,$ZZ.99 

$$$.$$$.99 


000824 

t 
-00526 

t 
03456 

t 
3265 

t 
1234 

0123 

000001 

5555 
t 




A A$ 8|.l2 4] 




[a A- 5 . 2 6 




IAI+I3I4I.I5I6I 


f$ 3 2 . 6|5l 


I$ll|2|3l4| 
lAlSlll2|3| 
Illegal Picture 


1a|aAA|$ 5 5 .|5 5 




t assumed decimal point 
A blank 



TABLE 4-11. EXAMPLES OF ZERO SUPPRESSION 
AND REPLACEMENT EDITING 



Picture 



ZZ999 
ZZZ99 
****.** 

$***.99 

ZZ9999 

ZZ9999 

ZZZZZ 
Z/Z/9 



Source Data 



00923 

00923 

000000 

00923 

123456 

000005 

00010 

023 



t assumed decimal point 
A blank 



Item 



|A|A|9|2|3| 
|A|A|9|2|3| 



****.** 




U * * 9 , 2 3 




12 3 4 5 6 



IA|A|0|0|0|5| 

lAlAlAlllol 

|A|A|2|/|3| 



Zero Suppression and Replacement Editing 

Zero suppression and replacement editing Is 
specified In the PICTURE character-string 
by a string of one or more of the symbols Z 
or *. Any simple insertion characters that 
are either embedded in the string or to the 
immediate right of the string are part of 
the replacement string. If Z is specified, 
a leading zero in that position in the 
receiving field is replaced by a space; If 
the asterisk is specified, the leading zero 
is replaced by an *. 

The replacement string can be structured In 
two ways: either any or all of the leading 
numeric character positions to the left of 
the decimal point are represented by the 
replacement symbol, or all of the numeric 
character positions are represented by the 
replacement symbol. 

When replacement symbols are designated to 
the left of the decimal point, the replace- 
ment character Is placed Into all character 
positions Immediately preceding either the 
decimal point or the first nonzero digit in 
the item, whichever is further to the left 
in the PICTURE character-string. 

When all numeric characters in the 
character- string are represented by Z and 
the entire receiving item is zero, the 
entire data Item is set to spaces. When 
all numeric characters in the character 
string are represented by * and the entire 
receiving item is zero, the receiving item 
is set to * except for the decimal point. 
If the field Is not zero, replacement 
Insertion is handled as if the replacement 
characters were designated only to the left 
of the decimal point. 

Table 4-11 shows examples of zero 
suppression and replacement editing. 



Editing Precedence Rules 

Table 4-12 shows the order in which symbols can 
appear in the PICTURE clause character-string. The 
character-string must contain one of the following: 



At least one symbol A X Z 9 or * 

At least one string of floating Insertion 
symbols 



In the table, several symbols appear twice: the 
leftmost column and uppermost row for each symbol 
represents its use to the left of the decimal point 
position. The second appearance of the symbol in 
the table represents its use to the right of the 
decimal point position. 



REDEFINES Clause 

The REDEFINES clause (figure 4-18) gives a new 
data-name and description for a previously specified 
item of the same level. Storage is not allocated 
for the new data-name: only one item physically 
exists. The item can be referenced by either 
data-name. Any use of the data is in accordance 
with the description associated with the data-name 
by which the item is referenced. 



REDEFINES data-name-2 



Figure 4-18. REDEFINES Clause Format 

NOTE 

Refer to appendix F for recommendations on 
the use of the REDEFINES clause. 
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TABLE 4-12. PICTURE CLAUSE SYMBOL PRECEDENCE RULES 



Second Symbol 


First Symbols 


Nonfloating 
Insertion Symbols 


Floating 
Insertion Symbols 


Other Symbols 


B 





/ 


) 


■ 


{:) 





fCRi 

\db/ 


cs 


{'} 


{'} 


)-> 


1-1 


cs 


cs 


9 


A 
X 


s 


V 


p 


p 


1 


Nonfloating 
Insertion 














































Symbols 














































B 


X 


X 


X 


X 


X 


X 






X 


X 


X 


X 


X 


X 


X 


X 


X 




X 




X 







X 


X 


X 


X 


X 


X 






X 


X 


X 


X 


X 


X 


X 


X 


X 




X 




X 




/ 


X 


X 


X 


X 


X 


X 






X 


X 


X 


X 


X 


X 


X 


X 


X 




X 




X 




> 


X 


X 


X 


X 


X 


X 






X 


X 


X 


X 


X 


X 


X 


X 






X 




X 




• 


X 


X 


X 


X 




X 






X 


X 




X 




X 




X 














(+ -) 














































(+-) 


X 


X 


X 


X 


X 








X 


X 


X 






X 


X 


X 






X 


X 


X 




(CR DB) 


X 


X 


X 


X 


X 








X 


X 


X 






X 


X 


X 






X 


X 


X 




cs 












X 


































Floating 
Insertion 




































1 










Symbols 














































(Z *) 


X 


X 


X 


X 




X 






X 


X 


























(Z *) 


X 


X 


X 


X 


X 


X 






X 


X 


X 
















X 




X 




(+ -) 


X 


X 


X 


X 










X 






X 






















(+ -) 


X 


X 


X 


X 


X 








X 






X 


X 












X 




X 




cs 


X 


X 


X 


X 




X 
















X 


















cs 


X 


X 


X 


X 


X 


X 
















X 


X 








X 




X 




other Symbols 














































9 


X 


X 


X 


X 


X 


X 






X 


X 




X 




X 




X 


X 


X 


X 




X 




A X 


X 


X 


X 


























X 


X 












S 














































V 


X 


X 


X 


X 




X 






X 


X 




X 




X 




X 




X 




X 






P 


X 


X 


X 


X 




X 






X 


X 




X 




X 




X 




X 




X 






P 












X 






X 


















X 


X 




X 




1 










































X 


X The symbol at the top of the column can precede 


the symbol at the left of 


the 


row. 




{ } Symbols within the braces are mutually exclusive 


• 








cs Currency symbol. 
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The clause, when It is specified, must be the first 
one in the Data Description entry. The Data 
Description entry with the new name must imme- 
diately follow the entry for the item being 
redefined, with no Intervening items of lower 
level number. The entry might appear in the 
Working-Storage Section, for example, as: 

05 NAME-0RI6 PICTURE 9(5). 

05 NAME-NEW REDEFINES NAME-GRIG. 

06 NEW-1 PICTURE 9(4). 

06 NEW-2 PICTURE 9(1). 
05 NAME-NEW2 REDEFINES NAME-ORIG 

PICTURE 9999V9. 

Multiple redefinitions of the same item are 

possible. All redefinitions of the same storage 

area should reference the original data-name, 

although a redefinition of an intervening 
redefinition is permitted. 

In the clause, data-name-2 is the item that is 
being redefined. (Data-name-1 is the data-name of 
the new item.) The level number associated with 
both data-names must be identical. Level 01 
entries in the File Section, level 66 items, and 
level 88 items cannot be referenced in this clause. 

Data-name-2 must not be described by an OCCURS 

clause, but can be subordinate to an item that 

contains an OCCURS clause. Data-name-2 cannot be 
subscripted, indexed, or qualified. 

Data-name-1, the new data-name, cannot be an 
elementary item with a SYNCHRONIZED clause nor a 
group item whose first elementary item has a 
SYNCHRONIZED clause unless data-name-2 has the 
proper boundary alignment. The new description 
must not contain a VALUE clause or the DEPENDING ON 
phrase of an OCCURS clause. 

The sizes of data-name-1 and data-name-2 need not 
be the same, since storage is allocated for the 
larger of two descriptions. Redefinition ends when 
all data referenced by data-name-2 is redefined. 



RENAMES Clause 

The RENAMES clause (figure 4-19) specifies an 
alternative grouping of elementary items, with 
possible overlap, under a new name. The clause 
must be specified in a level 66 item; it cannot 
reference level 77, 88, or 01 items. 



NOTE 

Refer to appendix F for recommendations on 
the use of the RENAMES clause. 

In the Data Description entry, data-name-1 
specifies the name of the alternate grouping of one 
or aore elementary items. Data-name-1 cannot be 
used as a qualifier; however, it can be qualified 
by the name of the associated level 01, FD or SD 
entry. 

In the RENAMES clause, data-name-2 and data-name-3 
must be names of elementary items or groups of 
elementary items in the same record. They cannot 
have the same name, but the names can be qualified. 
Neither data-name-2 nor data-name-3 can be described 
by an OCCURS clause or be subordinate to an item 
described by an OCCURS clause. 

If the THRU phrase is not specified, data-name-1 
can be either an elementary item or a group item 
since it has all the attributes of data-name-2. 

When the THRU phrase is specified, data-name-2 and 
data-name-3 designate a range of elementary items 
that make up the group item data-name-1. None of 
the Items can be described by the DEPENDING ON 
phrase of the OCCURS clause. Data-name-1 includes 
all Items within the range, beginning with the 
first, or only, elementary item specified by 
data-name-2 and ending with the last, or only, 
elementary Item specified by data-name-3. 

When data-name-3 is specified, it cannot name an 
item that is defined before data-name-2 or one that 
is subordinate to data-name-2; it can, however, 
start within the item specified by data-name-2. 



SIGN Clause 

The SIGN clause (figure 4-20) specifies the 
position and the representation of the operational 
sign for an item. It can only be specified for a 
numeric or numeric edited item described by a 
PICTURE clause containing the symbol S and a USAGE 
IS DISPLAY clause, for a group item containing at 
least one such entry, or for both if the SIGN 
clauses are not contradictory. 



[SIGN 



'SI { tRAuIiWs } ^ separate CHARACTER] I 



ft THRU i _, J 

RENAMES data-name-2 (THROUGH ( data-name-a 



Figure 4-19. RENAMES Clause Format 



Figure 4-20. SIGN Clause Format 

If the SIGN clause is not specified for a numeric 
item, the SIGN CONTROL clause of the SPECIAL-NAMES 
paragraph, if present, specifies sign control for 
the item. If neither Is present, SIGN IS TRAILING 
is assumed. 



When RENAMES is specified, the Data Description 
entry cannot contain other clauses. The full entry 
in which the clause appears is: 



LEADING or TRAILING Indicates whether the sign 
is at the beginning or the end of the item, 
respectively. Default is TRAILING. 



66 data-name-1; RENAMES data-name-2. 

One or more RENAMES clauses can be written for each 
record. The clauses must immediately follow the 
last entry of the associated record. 



SEPARATE specifies that the positive and negative 
signs are the characters + and - respectively. 
When SEPARATE is stated, the symbol S in the 
PICTURE clause character-string results in one 
character added to the size of the item. 
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If SEPARATE Is omitted, the sign is combined with 
the first or last digit of the item. When the item 
is displayed in output or is received in input as a 
card image, the signed digit appears as specified 
in the second column of table 4-13. When the item 
is to be received as input from a card , the signed 
digit must be punched as specified In the third 
column of table 4-13. When input data is positive 
or unsigned, output data is the same as the input 
data. The negative sign is represented by a - 
over punch in row 11; the positive sign by the 
absence of an overpunch or the presence of a + 
overpunch in row 12. 



( SYNCHRONIZED ! f LEFT 1 
I SYNC i I RIGHT I 



Figure 4-21. SYNCHRONIZED Clause Format 

The SYNCHRONIZED clause, or its abbreviation SYNC, 
should only appear with an elementary item; if it 
appi.-ars with a group item. It Is interpreted as 
though it were written for each subordinate 
L-iemcntary item. 



TABLE 4-13. SIGN OVERPUNCH REPRESENTATION 



Sign 


Output 


Hollerith 


Digit 


Representation 


Punch 


+9 


I 


12-9 


+8 


H 


12-8 


+7 


G 


12-7 


+6 


F 


12-6 


+5 


E 


12-5 


+4 


D 


12-4 


+3 


C 


12-3 


+2 


B 


12-2 


+1 


A 


12-1 


+0 


< 


12-Ot 


-0 


V 


11-ot 


-1 


J 


11-1 


-2 


K 


11-2 


-3 L 


11-3 


-4 M 


11-4 


-5 


N 


U-5 


-6 





11-6 


-7 


P 


11-7 


-8 


Q 


11-8 


-9 


R 


11-9 


tunder NOS, the 029 keypunch c< 


mnot be used 


to make the Hollerith punch p< 


itterns that 


represent +0 or -0. 





SYNCHRONIZED Clause 

The SYNCHRONIZED clause (figure 4-21) specifies 
that an elementary item is to be aligned on word 
boundaries of computer memory. The alignment Is 
such that no other data item occupies any of the 
character positions in the word in which the 
elementary item is synchronized. If the number of 
character positions in the elementary item is less 
than a full word, or multiple of a full word, the 
unfilled positions are known as slack character 
positions. 



All level 01 Record Description entries are 
automatically aligned to begin on word boundaries. 
COMP-1, COMP-2, and INDEX items are always aligned 
within word boundaries regardless of whether or not 
the SYNCHRONIZED clause is specified. 

If SYNCHRONIZED LEFT is specified for a 
COMPUTATIONAL or DISPLAY item, the item is left 
justified in the computer word; if SYNCHRONIZED 
RIGHT is specified, the item is right justified 
within the word. When SYNCHRONIZED is not followed 
by either LEFT or RIGHT, LEFT is assumed for all 
items except level 77 items. Level 77 items are 
right justified unless the ANSI=77LEFT parameter, 
which causes left synchronization, is specified on 
the compiler call. 

The operational sign of an item appears in the 
normal operational sign position regardless 
of whether the item is SYNCHRONIZED LEFT or 
SYNCHRONIZED RIGHT. 

Slack character positions are the unused positions 
in computer words for synchronized items of less 
than a multiple of 10 characters. The contents of 
the slack characters are undefined and can be 
changed by any store into the associated data item. 

The slack characters are included in the size of 
any group item to which the elementary item 
belongs. The slack characters are counted in the 
size of a redefined item, but not in determining 
any action that depends on size, such as 
justification, truncation, or overflow. 

Slack characters are included as follows: 

If the item being synchronized immediately 
follows an elementary item, the slack character 
positions are Inserted as a filler item 
immediately before the Item being synchronized. 



item being synchronized immediately 
a group item, the slack character 



If the 

follows 

positions are Inserted as a filler item between 

the immediately preceding elementary item and 

the following group item. 

The number of slack character positions Inserted 
for left synchronization, right synchronization, or 
group items described with an OCCURS clause is 
determined as follows : 

1. The total number of character positions 
occupied by all elementary items preceding the 
item to be synchronized. Including any slack 
character positions previously added, are added 
together. 
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2. This sum is divided by 10, giving a remainder 
Rl. 

3. If the remainder Rl is equal to zero, no slack 
character positions are required. Otherwise, 
10 - R.1 slack character positions are required. 



USAGE Clause 

The USAGE clause (figure 4-22) specifies the manner 
in which a data item is stored In memory. Storage 
form does not restrict the use of the data, 
although some Procedure Division statements might 
require data items to be declared by a particular 
USAGE clause. If the USAGE clause is omitted for a 
data item or for any group to which the data item 
belongs, the default is USAGE IS DISPLAY. 



/ COMPUTATIONAL 
I COMP 

I COMPUTATIOIMAL-I 
1 COMP-1 
, / CO MPUT ATI ONAL-2 

[USAGE IS] <^ CONJP^ 

COMPUTATION AL-4 
COMP-1 



DISPLAY 
V INDEX 



Figure 4-22. USAGE Clause Format 

The USAGE clause can be written at any level. If 
it is written at a group level, it applies to each 
elementary item within the group. The USAGE clause 
of further elementary and group items cannot 
conflict with the USAGE clause of their group level 
items . 

COMPUTATIONAL, COMPUTATIONAL- 1 , COMPUTATIONAL-2, 
and COMPUTATIONAL-4 are abbreviated by COMP, 
COMP-1, COMP-2, and COMP-4, respectively. 

COMPUTATIONAL 



COMPUTATIONAL- 1 

A COMF-I Item is of Che numeric class. Its 
PICTURE clause character-string must not 
contain more than 14 symbols 9 and P. 

A COMP-1 Item occupies a full computer word 
and is represented Internally as a 48-blt 
binary integer, right -aligned in the word. 
The item is capable of holding larger 
values than indicated by a 14-symbol 
PICTURE character-string, but any test for 
overflow condition is based on the maximum 
value implied by the PICTURE clause of the 
result field. 

When a COMP-I Item is used as a receiving 
field, no truncation is performed unless 
the result exceeds 48 bits; the PICTURE 
character-string for the receiving field is 
Ignored in truncation. 

When the PICTURE clause character-string of 
a COMP-1 item does not contain an opera- 
tional sign character, the compiler assumes 
the value is positive if it is a sending 
field and makes the sign positive If it Is 
a receiving field. 



COMPUTATIONAL-2 

A COHF-2 item is represented internally as 
a single precision floating point number, 
which occupies a full word of memory. No 
PICTURE clause can be Included in a Data 
Description entry whose USAGE IS COMP-2. 
The compiler assumes that the value of a 
COHP-2 item is a signed normalized floating 
point nianber. 

COMF-2 Items maintain accuracy to 14 
significant digits. A COMP-2 item must be 
within one of the following ranges: 

-10322 < value < -10-293 



A COMPUTATIONAL item must be of the numeric 
class and have decimal numeric values. 
(See the PICTURE clause for the attributes 
of a numeric item.) Each digit is stored 
by its display code representation, unless 
the CCl parameter is used on the compiler 
call. The SYNCHRONIZED clause can be used 
with a COMPUTATIONAL item to control data 
placement . 

If a group item is described as 
COMPUTATIONAL, the elementary items within 
the group item are COMPUTATIONAL; however, 
the group item itself is considered to be 
DISPLAY and cannot be used in computations. 

A COMPUTATIONAL item whose PICTURE clause 
character-string does not contain an 
operational sign is assumed to be positive 
when used as a sending item and is made 
positive when it is the receiving item. 

Although a COMPUTATIONAL item provides 
efficient storage, it requires conversion 
to Integer or floating point format for 
multiplication, division, and exponen- 
tiation. 



10-293 < value < 10322 



COMPUTATIONAL-4 

A CQMP-4 item is of the numeric class. Its 
PICTURE clause character-string must not 
contain more than 14 symbols 9 and P. 

A COMP-4 item is represented internally as 
a binary integer with a maximum size of 46 
bits. The item is capable of holding 
larger values than indicated by a 14-symbol 
PICTURE character-string, but any test for 
overflow condition is based on the maximum 
value Implied by the PICTURE clause of the 
result field. 



A COKS-U item can be signed or unsigned. 
If it is signed, the sign Is represented in 
Che leftmost bit of the item. If the Item 
id unsigned, the compiler assumes the 
value Is positive, if it is a sending 
field, and makes the sign positive if tt is 
a receiving field. 
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When a COMF-4 Item Is used as a receiving 
field and truncation is necessary, it is 
performed in binary and withuut regard Ln 
the sign. If a binary item whose value 
exceeds that allowed by the picture clause 
is displayed, the result is undefined. To 
accomplish decimal truncation, use USAGE 
DISPLAY. 

Table 4-14 shows the number of bits or 
bytes required to represent the maximum 
value for any mmiber of digits 1 through 14 
specified in the FICTUIIE clause 
character-string. Table entries have the 
following significance: 

Bits required for unsigned items Is the 
number of bits required to store the 
maximum decimal value which can be 
represented by the specified number of 
digits in the PICTURE clause. 

Bits required for signed Hems, is the 
number of bits required for unsigned 
items, plus one. 



numeric values up to decimal 127; whereas, 
six bits can only store numeric values up 
to decimal 63. A multiple of six bits must 
be used for data storage. The smallest 
multiple of six, which is greater than or 
equal to 7, is 12. Therefore, the minimum 
number of bits rounded for this example is 
twelve bits or two bytes. 



DISPLAY 



A DISPLAY item is stored internally in 
display code. The category of the item can 
be alphabetic, alphanumeric, alphanumeric 
edited, numeric, numeric edited, ot IseBlean. 



INDEX 



An INDEX item is represented internally in 
binary form and occupies a full computer 
word in memory. No PICTURE, JUSTIFIED, 
VALUE, or BLANK WHEN ZERO clauses can be 
included in the Data Description entry when 
USAGE IS INDEX. An item described with 
this clause is known as an index data item. 



Bits rounded Is the smallest multiple 
of six which is greater than or equal 
to the number of bite required. 

Bytes required is the number of bits 
rounded divided by six. The number of 
bytes must be used for data storage, 
because the smallest addressable unit 
is one byte. 

For example, if the CQHP-4 item has PICTURE 
99, then the number of digits In the 
PICTURE clause is 2. Seven bits are 
required to store the maximum numeric value 
which can be represented by PICTURE 99, or 
decimal 99. That is, seven bits can store 



An index data item contains a value that 

corresponds to an occurrence number of a 

table element. It cannot be a conditional 
variable . 

If a group item is described with the USAGE 
IS INDEX clause, the elementary items 
within the group are index data items, but 
the group itself is not. The group item 
cannot be used as an index data item. 

An index data item can only be referenced 
explicitly in a SEARCH statement, a SET 
statement, a relation condition, the USING 
phrase of a Procedure Division header, or 
the USING phrase of a CALL statement. 



TABLE 4-14. STORAGE REQUIREMENTS FOR COMP-4 ITEMS 



Digits in 
PICTURE Clause 



Unsigned Items 



Bits 
Required 



Bits 
Rounded 



Bytes 
Required 



Signed Items 



Bits + 1 
Required 



Bits + 1 
Rounded 



Bytes 
Bequi red 



1 
2 
3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 



4 
7 
10 
14 
17 
20 
24 
27 
30 
34 
37 
40 
44 
47 



6 
12 
12 
18 
18 
24 
24 
30 
30 
36 
42 
42 
48 
48 



5 
8 
11 
15 
18 
21 
25 
28 
31 
35 
38 
41 
45 
48 



6 
12 
12 
18 
18 
24 
30 
30 
3b 
36 
42 
42 
48 
48 
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An Index data item Is represented 
Internally In the same format as an 
Index-name that Is defined In the INDEXED 
BY phrase of an OCCURS clause. (See 
section 6 of the COBOL user's guide for 
further detail.) 



VALUE Clause 

The VALUE clause (figure 4-23) specifies the 
Initial value of an Item at the start of the object 
program or the value of a level 88 condition-name. 



Format 1 

VALUE IS literal 

Format 2 

( VALUE IS ) 
(VALUES ARE ( 



llteral-1 



[( THRU 



[) THROUGH 



[■ 



llteral-3 



n THRU 

[l THROUGH 



} 



llteral-4 



} llteral-2 



Figure 4-23. VALUE Clause Format 

Format 1 either specifies a Report Section 
printable item or specifies an elementary or 
group item In the Working-Storage, Common- 
Storage, or Secondary-Storage Section. 

Format 2 specifies a condition-name in a level 
88 Item In the Working-Storage Section. 



Format 1 VALUE 



The VALUE clause defines the value of Report 
Section printable Items, the initial value of 
Working-Storage items, and the initial value of 
data items in the Common-Storage Section. 

If the clause is not specified in an item 
description, the initial value of the item is 
unpredictable. 

The VALUE clause must not be specified for: 

An entry containing an OCCURS clause 

An entry containing a REDEFINES clause 

An entry subordinate to an OCCURS clause or a 
REDEFINES clause 



A group entry containing items with descrip- 
tions including a JUSTIFIED or SYNCHRONIZED 
clause, or a USAGE clause that does not specify 
DISPLAY 

In format 1. the literal specified can be a numeric 
litdDl, nonnumerlt.- Jl^.Tal, a boolean literal, nr 
a fljur-itlve ciinst-i.-.t. .he following rules apply: 

If tne PICTUEIE clause defines a boolean item, 
ill literals must be boolean and adhere to the 
I'ICTL'RK character-string specifications. 

If the PICTURE clause defines a numeric item, 
all literals must be numeric and adhere to the 
PICTURE character-string specifications. 

If the PICTURE clause defines an alphabetic, 
alphanumeric, alphanumeric edited, or numeric 
edited Item, all literals must be nonnumerlc. 
The literal will be aligned as if the Item were 
alphanumeric. 

If the item Is a group level entry, the literal 
nust be a figurative constant or a nonnumerlc 
literal. The group Item is initialized without 
consideration for the Individual elementary and 
group items contained within the group. The 
elementary and group items within a group item 
specifying a VALUE clause must not themselves 
contain a VALUE clause. 

Any BLANK WHEN ZERO or JUSTIFIED clause Is ignored 
when the item is initialized. 

When the initial value set by the VALUE clause 
remains unchanged during program execution, the 
item Is known as a constant. 

Format 1 can be used to specify a level 88 item. 

In a report group, the VALUE clause Is one of the 
three clauses that can be used for the required 
definition of the purpose of each elementary Item. 
The discussion of the GROUP INDICATE clause in 
section 6 further explains the effects of the VALUE 
clause on a Report Section item. 



Format 2 VALUE 

Format 2 must only be used to specify the range of 
values for a condition-name in a level 88 entry. 
Only the condition-name and the VALUE clause are 
allowed in the entry. 

The literals can be numeric, nonnumerlc, or a 
figurative constant. |^j|si^i®iifi|SB^E clause 

SSll«^||lwll Llteral-2 must be" greater 'than 
llteral-1; llteral-4 greater than llteral-3, and so 
forth. 
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PROCEDURE DIVISION 



Procedure Division Is required In every source 
program to specify the processing that Is to take 
place. It Is the last division in the program. 
Program execution begins with the first statement 
of this division, excluding any declaratives. 
Statements are then executed In the order in which 
they are presented for compilation, except where 
the statements themselves cause another order. 



DIVISION STRUCTURE 

The division consists of the division header and 
the body structure. When the program Is segmented 
or declaratives are included, the lines In the 
division must be grouped Into sections. Sections 
are optional when declaratives are omitted and the 
program Is not segmented. Division structure is 
shown In figure 5-1. 



DIVISION HEADER 

The division header must appear on a separate line, 
beginning In area A, and must be terminated by a 
separator period. The division header format Is; 

PROCEDUBE DIVISION [USING data-name-1 

[, data-name-2] ...]. 

The USING phrase is applicable only in a subprogram 
that Is to execute under control of a CALL state- 
ment that also contains a USING phrase. The order 
of the operands in the header must be the same 
order as the operands in the CALL statement. A 
data-name must not appear more than once In the 



division header, although It can appear more than 
once in the CALL statement. See section 8, 
Memory Management, and section 15, Inter-Program 
Communication Facility. 



DECLARATIVES 

Declaratives are bounded by the keywords 
DECLARATIVES and END DECLARATIVES. These words 
must begin in area A, appear on a separate line, 
and terminate with the separator period. 

The declaratives body consists of one or more 
sections. The sentence following the declaratives 
section header must be a declarative-sentence 
consisting of a USE statement terminated by a 
period separator. This statement defines the 
conditions under which any Immediately following 
paragraphs are executed. One or more paragraphs 
should follow all USE statements. 

The USE statement has several formats, each 
concerned with a different type of declarative. 
See the USE statement in this section. 

Declaratives In a segmented program are discussed 
in section 8, Memory Management. 



PROCEDURES 

A procedure consists either of a paragraph or group 
of successive paragraphs or of a section or group 
of successive sections. If one paragraph in the 
division is in a section, then all paragraphs must 
be In sections. 



Format 1 

[DECLARATIVES. 






section-name SECTION [segment-number] . declarative-sentence. 



I paragraph-name, [sentence] ■ ■ ■ i ...>... 



END DECLARATIVES.] 



section-name SECTION [segment-number], 
paragraph-name, [sentence] . . 



.]...} 



Format 2 

I paragraph-name, [sentence] . . . i . 



Figure 5-1. Procedure Division Skeleton 
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A procedure-name is used to refer to a paragraph or 
section in the source program. It consists of a 
paragraph-name or a section-name. 



Section-names 
division. 



must be unique within 



the 



Paragraph-names need be unique only within a 
given section. References to a paragraph-name 
can be made unique by qualifying the paragraph- 
name with the name of the section In which It 
appears; the keyword SECTION is not included in 
the qualifier. Paragraph-names need not be 
qualified when referred to from within the same 
section. 



Both section-name and paragraph-name can be 
composed of 30 characters selected from the letters 
A through Z, the digits through 9, and the 
hyphen. A letter is not required in either a 
section-name or paragraph-name. 



Sections 

A section begins with the section header that 
begins In area A and Is terminated by the separator 
period. A section header has the following format: 

section-name SECTION [segment-number]. 



The segment-number is described in section 8, 
Memory Management. 

A section ends with the appearance of another 
section header, the end of the division, or the end 
of the declaratives. 



Conditional 

A conditional statement specifies that the 
truth value of a condition is to be 
determined and that the subsequent action 
of the executing program is dependent on 
this truth value. A conditional sentence 
is a conditional statement, optionally 
preceded by an Imperative statement, 
terminated by a period. 

Compiler-directing 

A compiler-directing statement consists of 
a compiler-directing verb and its operands. 
A compiler-directing sentence is a single 
compiler-directing statement terminated by 
a period. 

Imperative 

An imperative statement indicates a speci- 
fic unconditional action Is to be taken by 
the executing program. It can consist of a 
consecutive sequence either of Imperative 
statements terminated by a period or of an 
ELSE phrase associated with a previous IF 
statement or of a WHEN phrase associated 
with a previous SEARCH statement. An 
imperative sentence is an imperative 
statement terminated by a period. 

Delimited scope 

A delimited scope statement is any state- 
ment Ihat includes an explicit scope 
terminator- The explicit scope terminators 
are END-IF, END-PERFOBM, and END-SEARCH. 
Scope terminators delimit the scope of 
cert.iin Procedure Division statements. 



Zero, one, or more successive paragraphs can be 
contained in a section. 



Paragraphs 



A paragraph begins with the paragraph-name, which 
begins in area A, and is terminated by a separator 
period. Paragraph-name can, but need not, appear 
on a separate line. 

A paragraph ends with the appearance of another 
paragraph-name, a section header, the end of the 
division, or the end of the declaratives. 



Tlie =-,i-opi' lif sl.iU'ir.ents tliat are i-onlained 
within other sL<itt>ments c>in also bf implic- 
itly tcmi n.ilfd. SLatoments, contained 
within other statements arc termed nested 
•< tat emi-nL'j . Uhtn sLjlcmonts art' nested 
within othor slalemtnls , .1 separator period 
lli.it LiTraiii.it I s till' si'iileiicf .• i so implic- 
itly ti^rini LiLi'S all luitcTmi naced nested 
f.L.Ui-mentH . 

WheiiovLT slaLomerl'i aru ousted within 

.'iii'itht-r st.itement, the- next phrase of the 

containi-.g statement, following a nested 

sLatument, terminates the scope oi any as 
M'l iiiitHrminnti'd ni'ited statement. 



Zero, one, or more successive sentences can be 
contained in a paragraph. 



STATEMENTS AND SENTENCES 

A sentence is a series of one or more statements 
that is terminated by a separator period. State- 
ments can, but need not, be written as Individual 
sentences unless specifically noted in the 
statement discussion. 

A sentence is categorized by the statements it 
contains. Four types of statements and sentences 
are : 



WhcMi a delimited scope statomeTt is nested 
within another delimited scope statement, 
with the same verb, each explicit scope 
terminator terminates the statement begun 
by the most recently preceding, and as yet 
unterminatod , occurance of the verb. 



Table 5-1 shows the type of statement for each of 
the verbs used in the Procedure Division. 



PROCEDURE DIVISION 
STATEMENTS 

All statements of the Procedure Division are pre- 
sented alphabetically in this section. 
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TABLE 5-1. STATEMENT CLASSIFICATION 



Statement and Phrase 


Type of Statement 


Statement and Phrase 


Type of Statement 


Condi- 
tional 


Compiler 
Directing 


Imper- 
ative 


Condi- 
tional 


Compiler 
Directing 


Imper- 
ative 


ACCEPT 
ADD: 






X 


PERFORM: 
with END-PERFORM 
without END-PERFORM 






X 
X 


with SIZE ERROR 
without SIZE ERROR 


X 




X 


PIRGE 






X 


ALTER 

CALL: 
with ON OVERFLOW 
without ON OVERFLOW 


X 




X 
X 


READ; 
with INVALID KEY 
without INVALID KEY 
with AT END 
without AT END 


X 
X 




X 
X 


CANCEI, 
CLOSE 






X 

X 


RECEIVE 
with NO DATA 
without NO DATA 


X 




X 


COMPUTE: 
with SIZE ERROR 
without SIZE ERROR 


X 




X 


RELEASE 
REPLACE 


m»m 


X 


X 


CONTINUE 






X 


RETURN 


X 






COPY 

DELETE: 
with INVALID KEY 
without INVALID KEY 

DISABLE 


X 


X 


X 
X 


REWRITE: 
with INVALID KEY 
without INVALID KEY 

SEARCH: 
with END-SEARCH 
without END-SEARCH 


X 
X 




X 

X 


DISPLAY 






X 


SEND 






X 


DIVIDE: 

with SIZE ERROR 
without SIZE ERROR 


X 




X 


SET 
SORT 






X 
X 


ENABLE 
ENTER 






X 
X 


START: 

with INVALID KEY 
without INVALID BCEY 


X 




X 


EXIT 






X 


STOP 






X 


GENERATE 
GO TO 






X 
X 


STRING: 
with ON OVERFLOW 
without ON OVERFLOW 


X 




X 


IF: 

with END-IF 
without END-IF 


X 




X 


SUBTRACT: 
with SIZE ERROR 
without SIZE ERROR 


X 




X 


INITIALIZE 






X 


SUPPRESS 






X 


INITIATE 






X 


TERMINATE 






X 


INSPECT 
MERGE 






X 
X 


UNSTRING: 
with ON OVERFLOW 
without ON OVERFLOW 


X 




X 


MOVE 






X 


USE 




X 




MULTIPLY: 
with SIZE ERROR 
without SIZE ERROR 

OPEN 


X 




X 
X 


WRITE: 
with INVALID KEY 
without INVALID KEY 
with EOP 
without EOP 


X 
X 




X 
X 
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ACCEPT STATEMENT 

The ACCEPT statement (figure 5-2) makes data avail- 
able to the specified data item. Statement format 
determines the source and extent of the data. 



CONSOLE 

40 
Other 



Format 1 










ACCEPT identifier 


[FROM 


mnemonic- 


-name] 


Format 2 






(date 




ACCEPT 


identifier 


FROM 


I DAY 
) DAY-OF 

/time 


-WEEK / 



Figure 5-2. ACCEPT Statement Format 



Format 1 reads low volume data from a file. 

Format 2 sets a data item with the value of a 
conceptual date or time. 

Format 3 returns the number of messages in an 
MCS queue; can be used only under NOS. See 
section 14, Message Control System. 

In the statement, identifier specifies the item to 
receive data. 



Format 1 ACCEPT 

Format 1 normally specifies that data is to be 
accepted from a terminal or the central site 
console, or from a file connected to a terminal 
into which data will be entered as the program 
executes. The transfer of data is a straight char- 
acter transfer; no conversion of data takes place. 
Consequently, if the usage of identifier is not 
DISPLAY, unexpected results can occur. (Accepting 
data from the console is inefficient In a multipro- 
gramming environment and should be avoided.) The 
file from which data is accepted is assumed to have 
a sequential format with C type blocking and Z type 
records. 

Mnemonic-name specifies the source of the data. It 
must be associated with an implementor-name in the 
SPECIAL-NAMES paragraph of the Environment Division. 
Mnemonic-name must not be associated with a file 
named in an FD entry, except for the implementor- 
name "INPUT". When the FROM phrase is omitted, 
data is read from the system file INPUT. 



The maximum number of characters that can be 
accepted from a single input record depends on the 
implementor-name and whether or not the implementor- 
name refers to a connected file of an interactive 
terminal: 

"TERMINAL" or connected file 

Identifier character size or 300, whichever 
is smaller 



80, unless changed by a FILE control state- 
ment 

When the data exceeds the size of the identifier, 
characters are truncated on the right after the 
receiving identifier item is filled. 

When data is being accepted from an existing file, 
either 80 characters or the number of characters 
specified by the FL parameter of the FILE control 
statement are read. If the size of the identifier 
exceeds the size of the input record, multiple 
records are read until the identifier is filled. 
If the identifier size is not an even multiple of 
record size, the last record is truncated on the 
right . 

Data being entered interactively through a terminal 
or console need not be expanded to match the size 
of the receiving data item. The data accepted with 
a single ACCEPT statement is terminated by a car- 
riage return. The identifier item is blank filled 
when terminal input data does not fill the item. 

When an ACCEPT identilLcr FROM CONSOLE statement Is 
L'>(i'cuted on NOS, the following message appears, but 
docs not flash, in Ihr B dir.pliiy on tho central 
site consoli': 

lYPE N.CFO + COBOL INPUT 

The operator should be expecting the message in 
or.icr to tak<' any action. Tlie operator must type 
r..CKO and then the input data; the n is the control 
poi nt ordinal . 

Whfu .ui ACCEIT idc^nti ficr FPOM CONSOLE statement i.s 
exe^'uted on NOS/BE, the following message flashes 
in the 3 display on Lhe central slti' console: 

lYPE J.CKO -1 COBOL fNPLT 

The operator must type j.CKO and then lhe input 
d.it.i; the j is the JDT ordinal appearing on Che 
Jen In lhe li display- 
When the data is accepted i rum mi inleracl i vc ter- 
iilnai, 1 quonl i'jn ir.rirk Ik output at the terminal 
bL-fori' [lie rospi/Mse is expected. Through INTERCOM 
oi: NOH'KE, LI Lhe prcvinus operation ;it Lhe teroi- i 
iM^ was .-. DISPLAY WITH NO ADVAKCISG statement, a 
question mark is not output and the response can be 
entcreii fiom the current po.iition. Through lAF on 
NOS, under the same circumstances, a question mark 
will tc jutput toiiotaing the last displ.-ived rh.ir.ic- 
ler dp.d ddlJi cdi; be entered following the question 
mark. 

n'liLMi the chiir.ic ti-r size of lhe idcnlifler exceeds 
300 characters or Lhe FL parameler ol the FILE 
control stateme::l, eacli porlLon of data terminated 
by .1 rairiagp return represents a multiple of 300 
ur FL charjifters. Tlie data is followed by a 
qupsrion mark being output to Lhe Lorrainal until 
enough multiples of 300 or FL have been received to 
fill tlie identifier. Any excess data accepted by 
tills method is truncated from the right. 
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Any end-of-fllf or parcition boundary encouTten-J 
nn a norinterac tive tile causes a jlagnoscic to bi- 
issuuJ and the run m he termir-aLed. All spueh 
are returned for an end-of-file or a particio-. 
boundary on an Interactive file. Partition bour.J- 
aries arc defined by CYBER Record Manager. 

Upon exit from the COBOL progran, the f j lo spc-cl- 
fied In the FROM phrase Is ri-wound unle=.<s '. t Is tnt- 
file IKPl'T or is connected to a teminnl. 



DATE 



Format 2 ACCEPT 

Format 2 works with conceptual data items (table 
5-2) that do not have a description within the 
program. The items behave, however, as if they 
were described as elementary unsigned numeric 
Integer data items with the number of digits indi- 
cated below. 



TABLE 5-2. EXAMPLES OF CONCEPTUAL 
DATA ITEM FORMAT 



Item 


Example 


Format Accepted 


DATE 


July 1, 1968 


680701 


DAY 


July 1, 1968 


68183 


DAY-OF-WEEK 


Thursday 


4 


TIME 


2:41 p.m. 


14410000 



Six digits yymmdd representing the year of 
the century, month of the year, and day of 
the month. 

DAY 

Five digits yyddd representing the year of 
the century and day of the year. 

DAY-OF-WEEK 

One digit d representing the day of the 
week. The range of values allowed is 1 
through 7 corresponding to Monday through 
Sunday, respectively. 

TIME 

Eight digits hhmmsscc representing the 
hour, minute, second, and centlsecond. The 
two digits representing the centlsecond are 
always set to 00. The hour is based on 
elapsed time after midnight for a 24-hour 
clock. The range of values allowed is 
00000000 through 23595900. 

The conceptual data Item is moved to the Identifier 
field as if a MOVE Instruction were executed. 



ADD STATEMENT 

The ADD statement (figure 5-3) adds two or more 
elementary numeric data items. The data item that 
receives the result of the addition depends on the 
format used: 



Format 1 



AD_D {SSfier-l} [,' Sfier-2]- ■ • 1° '''«-'^'— 'ROUNDED) [. identifier-n [ROUNDED]] . . . 
[; ON SIZE ERROR imperative-statement) 



Format 2 
ADD 



{Eli-lM; !Smer-2[[: EE-s]- ■ • mm i-entifier-m [ROUNDEOl 
r, identifier-n [ ROUNDED ] 1 . . . [; ON SIZE ERROR imperative-statement] 



Format 3 



< CORRESPONDING t 
ADD^CORR 



} identifier-1 TO identifier-2 [ ROUNDED ] [, identifier-3 {ROUNDED] . . .J 



[; ON SIZE ERROR imperative-statement] 



Figure 5-3. ADD Statement Format 
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Format 1 stores the result in the last Identi- 
fier used in the addition. 



Format 2 stores the result in an 
that was not used in the addition. 



Identifier 



Format 3 adds elementary items in one group 
identifier to any corresponding items in 
another group identifier and stores the result 
in the second identifier used for the addition. 

The composite size of identifiers and/or literals 
is limited to 18 digits. The composite size is 
determined by superimposing data items on their 
respective decimal points in a hypothetical data 
item. The items used in composite size calcula- 
tions depend on the format : 

Format 1 uses all Identifiers and/or literals 
specified. 

Format 2 uses all operands, but not the identi- 
fiers into which the result is stored. 

Format 3 separately uses each pair of corre- 
sponding data items. 



Format 1 ADD 

Format 1 ADD occurs as follows: The value of 
llteral-1 or identifier-1 is added to the value of 
all literal-2 or identifier-2 specified. The sum 
is then added to the current value of identifier-m 
and stored as the new value of identifler-m. If 
identifier-n is specified, the sum of all literals 
or identifiers specified before the keyword TO is 
added to, and the result stored in, each 
Identifier-n specified. All identifiers of format 
1 must be elanentary numeric items. 



If, after decimal point alignment, the absolute 
value of a result exceeds the largest value that 
can be contained in the data Item, a size error 
occurs for that item. Each result data item is 
treated separately. 

When the SIZE ERROR phrase is omitted, the value of 
any data item with a size error is undefined. 
Exponent overflow or underflow causes program 
termination, unless a MODE control statement is in 
effect for these conditions. All other result data 
items are unaffected by the error condition. 

When the SIZE ERROR phrase is specified, the value 
of any data item with a size error is not altered 
from its previous value. All other result data 
items are unaffected by the error condition. After 
all result data items have been considered, the 
imperative-statement of the phrase executes. The 
program is responsible for determining which result 
caused the size error and execution of the 
imperative-statement in the phrase . 

If the ROUNDED phrase is specified, rounding occurs 
before checking for size error. Consequently, the 
ROUNDED phrase precludes the possibility of a size 
error to the right, but not to the left, of a 
decimal point. 

A size error always exists when any of the follow- 
ing conditions is detected for any intermediate or 
final result during an ADD or other arithmetic 
statement operation: 

Division by zero. 

Zero is raised to zero or negative power. 

Number less than zero is raised to a noninteger 
powe r . 



ROUNDED Phrase 



Floating point exponent overflow or underflow. 



The ROUNDED phrase affects only the data item in 
which the result of a computation is stored; it 
affects the result only when that data item is 
described with a symbol P, V, or a decimal point. 
Computations are performed in locations known only 
to the compiler. At the end of the computation, 
the result is moved to the data item or items 
specified in the arithmetic statement. 

The result of the computation is aligned with the 
decimal point of the result data item before round- 
ing is considered. If the ROUNDED phrase is 
omitted, truncation occurs at the right when the 
number of places in the fraction of the result 
exceeds the nvmiber of fraction places provided in 
the result data item. 

If the ROUNDED phrase is specified, the last digit 
of the absolute value of the result data item is 
increased by 1 whenever the most significant digit 
of the excess is greater than or equal to 5. 



SIZE ERROR Phrase 



The SIZE ERROR phrase affects only a data item in 
which the result of a computation is stored. 
Computations are performed in locations known only 
to the compiler. At the end of the computation, 
the result is moved to the data item or items 
specified in the arithmetic statement. 



Format 2 ADD 

Format 2 ADD occurs as follows: The value of 
identifier-1 or literal-1 is added to the value of 
identifier-2 or literal-2, then their sum is added 
to all literal-3 or identifier-3 specified. The 
result of the addition is stored as the new value 
of identifler-m. If identifier-n is specified, the 
sum of all literals or identifiers specified before 
the keyword GIVING is also stored as the new value 
of each identifier-n specified. In format 2, all 
identifiers or literals to be added must be elemen- 
tary numeric items; Identifier-m and identifier-n 
can be elementary numeric or elementary numeric 
edited items. 

The ROUNDED phrase and the SIZE ERROR phrase are 
the same as for format 1 ADD. 



Format 3 ADD 

Format 3 adds items in identifier-1 to, and stores 
the results in, torrrs ponding Items in identf f ler-2. 
rr idenlif Ler-3 is specifU'd, items in identifier-1 
are added to, .ind the results stored in, corre- 
spond i.ig items in each identJfiut-3 specified. All 

i H^-n ^ n F i p r « ' ii f/^ rni-j t- T mne-t- V..- r, f.^im lif.m... -mi.. 

corresponding elementary numeric items are added. 
Identifiers must not be reference modified. 
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See format 2 MOVE statement for the definition of 
corresponding data Items. The ROUNDED phrase and 
the SIZE ERROR phrase are the same as for format 1 
ADD. 



ALTER STATEMENT 

The ALTER statement (figure 5-4) modifies a GO TO 
statement so that subsequent execution transfers 
control to a different procedure. 



ALTER procedure-name 


-1 TO 








[PROCEED TO] 


procedure 


-name- 


-2 


. 


procedure- name-3 TO 








[PROCEED TO] 


procedure- 


name-4 . . . 



Figure 5-4. ALTER Statement Format 

Procedure-name-1, which is the procedure to be 
altered, must be the name of a paragraph containing 
only a format 1 GO TO statement. Procedure-name-2, 
which is the procedure to be substituted In the GO 
TO statement, must be the name of a paragraph or 
section in the Procedure Division. Any procedure- 
name-3 is treated the same as procedure-name-1; 
procedure-name-4 is treated as procedure-name-2. 
The same procedure-name must not be altered more 
than once in the same ALTER statement. 

The words PROCEED TO can be Included for clarity. 
They do not change the meaning of the statement. 

NOTE 

Because of anticipated changes in this 
product, use of the ALTER statement is not 
recommended. See appendix F for guidelines. 

See section 8, Memory Management, for use of ALTER 
in a segmented program. 



CLOSE file-name-1 



I REEL > r WITH NO REWIND-! 
lUNIT ( LfOR REMOVAL J 



WITH 



(NO REWIND \ 
( LOCK ( 



, flle-name-2 



I REEL ) r 
I UNIT f I 



rWITH NO REWIND 1 
FOR REMOVAL J 



WITH 



( NO REWIND 1 
I LOCK ( 



Figure 5-5. CLOSE Statement Format 1 

Terminate processing of a reel of a sequential 
tape file 

Cause an END REEL checkpoint of a sequential 
mass storage file 

The format 2 CLOSE statement terminates processing 
for all files associated with a relation specified 
In a subschema. See section 16, Subschema Facility, 
for the format 2 CLOSE statement. 

CLOSE inhibits the use of any subsequent input- 
output statements. If CLOSE is omitted, all open 
flies are closed when a STOP RUK statement is 
executed as if a CLOSE statement with no optional 
phrases was executed; a warning message Is issued 
to the dayfile. It might not be possible to close 
some files due to the action of CANCEL or overlays; 
an appropriate diagnostic is Issued to the dayfile. 
During execution of a CANCEL statement, any files 
local to the cancelled program are closed as 
indicated in the previous sentences. 

If the OPTIONAL phrase of the SELECT clause has 
been specified in the FILE-CONTROL paragraph of the 
Environment Division and the file is not present, 
the standard end-of-file processing is not per- 
formed for the file. 



CALL STATEMENT 

The CALL statement transfers control to a COBOL 
subprogram. See section 8, Memory Management, and 
section 15, Inter-Program Communication Facility. 



In the statement, file-name-1 and file-name-2 
specify the files to be closed. i||««geM*!iiia|B^ 

The effects of CLOSE depend on the file organiza- 
tion. 



CANCEL STATEMENT 

The CANCEL statement removes a called program from 
memory. See section 8, Memory Management. 



CLOSE STATEMENT 

The format 1 CLOSE statement (figure 5-5) has 
several functions depending on the phrases used. 
It can be used to: 

Terminate processing at the end of an input or 
output file 

Terminate processing before the end of an Input 
file 



For indexed, direct, and actual-key files, 
processing terminates and AAM updates the 
Internal table that Is a part of each of these 
files. If the file subsequently is reopened, 
position Is at the beginning of the first 
record in the file. 

For a relative and word-address file, process- 
ing terminates. A partition boundary exists in 
the file at the end of the last record. The 
boundary can be overwritten by adding new 
records at the end of the file. 

For sequential files, processing depends on the 
device on which the file resides and the 
presence or absence of the REEL or NO REWIND 
phrase. If NO REWIND is not specified, the 
file is rewound before it is closed. 
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In all cases except when the REEL or LOCK phrase is 
specified, the file is closed with the CF field of 
the file information table set to DET. This causes 
buffer space to be released, along with any CYBER 
Record Manager capsules particular to that file. 
This action should be avoided if the file Is to be 
reopened immediately. To prevent this unnecessary 
use of system resources, the utility routine C.FILE 
can be entered in the following manner: 

ENTER "C.FILE" USING file-name, "CF=R". 

If this statement is executed prior to the close, 
the buffer space is not released when the close is 
executed. For more information, see appendix G, 
Utility Routines. 

If a relative file is going to be opened with an 
OPEN OUTPUT statement, the "CF=R" option should not 
be used. It causes the data on the file to be 
incorrect. To create the file correctly, execute a 
DELETE FILE statement before opening the file for 
output. 



NO REWIND Phrase 

The WITH NO REWIND phrase inhibits the rewind that 
is a part of CLOSE processing. It is valid only 
for sequential files. 

When the file name Is INPUT, the file is positioned 
In front of an end-of-record or end-of-file instead 
of at the beglning of the next system logical 
record. 



LOCK Phrase 

The WITH LOCK phrase closes the file and prevents 
it from being reopened within the job step current- 
ly executing. An operating system RETURN function 
occurs when this phrase is used, which causes any 
local mass storage file to be discarded. An 
attempt to reopen the file within the same program 
aborts the program. 



REEL/UNIT Phrase 



The REEL or UNIT phrase is valid only for sequen- 
tial files. The words REEL and UNIT are synonymous 
and interchangeable. 

If the REEL phrase is omitted, file processing ter- 
minates. An end-of-partitlon boundary Is written 
to an output file. Any labels for either an input 
file or output file are processed as appropriate. 
The file is positioned in accordance with other 
phrases in the statement. 

If the phrase is used with a sequential file on 
mass storage, any checkpoint established by the END 
REEL phrase of the RERUN clause In the I-O-CONTROL 
paragraph takes place. Otherwise, this phrase of 
CLOSE has no effect on file positioning or 
processing. 

If the phrase is used with a sequential file on 
tape, any END REEL checkpoint takes place- Label 
processing occurs, if appropriate, at the end of 
the reel being closed. The operating system pro- 
cedures for reel swap then occur. Label processing 
resumes at the beginning of the next reel. No 



end-of-partitlon is written on an output file when 
the REEL phrase is used. 

A reel close is never required. If the physical 
delimiter of a reel is encountered during file 
processing, reels are swapped automatically under 
operating system control without the program being 
aware of the swap. Although the current reel is 
rewound and physically unloaded during the swap, 
the program can force a prior reel to be remounted 
after the file is closed by execution of an OPEN 
statement with the REWIND option. 

Judicious use of the rewind and no rewind capabili- 
ties of the OPEN and CLOSE statements and the job 
control statements that designate the tape units 
required for a job can improve the efficiency of 
the physical handling of a known multireel file. 
Automatic swapping occurs for both a single multi- 
reel file and for a multifile multireel set, the 
only difference being that label processing always 
occurs for a multifile set. 

The WITH NO REWIND phrase of CLOSE REEL inhibits 
the rewind and physical unload that would otherwise 
occur. 

The FOR REMOVAL phrase Is documentary only. 



COMPUTE STATEMENT 

The COMPUTE statement (figure 5-6) evaluates an 
arithmetic ^^^^ expression and sets the 
result in one or more data items. 



Format 1 



COMPUTE identif ier-1 [ROUNDED ] 

r, identif ier-2 [ ROUNDED ]] 
I FROM I 



arithmetic-expression 



I tOUALS [ 

[; ON SIZE ERROR imperative-statement] 



Format 2 



COMPUTE j. identif ier .3 J- 



( FROM ) 
I EQUALS i 



hoo I ean -ex pression 



Figure 5-6. COMPUTE Statement Format 

In format 1, the result of expression evaluation is 
stored in identifler-1 and also In any identlfier-2 
specified. These identifiers must be elementary 
numeric or elementary numeric edited items. 
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The words FROM and EQUALS are equivalent to each 
other and to the symbol = ; they can be used 
interchangeably. Arithmetic-expression can be a 
single Identifier or literal, as well as an 
expression. 



The ROUNDED phrase and the SIZE ERROR phrase are 
discussed with the ADD statement in this section. 
SIZE ERROR applies to all intermediate results as 
well as the final results. Additional information 
about arithmetic expressions and operations is in 
section 1. 



In format 2, identifier must reference a boolean 
data Item. The result of the boolean expression 
evaluation Is stored in Identifier-S. Identifier-3 
references a boolean data item. The result of the 
boolean expression evaluation is stored in 
ident1fler-3. 



CONTINUE STATEMENT 

The CONTINUE statement (figure 5-7) Is a no- 
operatlon statement in which no action is taken by 
the system. The statement can be used wherever a 
conditional statement or an imperative statement 
can be used. The statement Is usually used to fill 
an unused branch of a conditional statement. It 
indicates that no executable statement is present 
and causes an implicit transfer of c.nntrol to Iho 
next executable statement. 



CONTINUE 



Figure 5-7. CONTINUE Statement Format 



DELETE STATEMENT 

Tlie DELETE RECORD statement (figure 5-8) removes a 
record from a file with relative, indexed, direct, 
or actual-key organization. Once a record has been 
deleted, it can no longer be accessed. The use of 
DELETE in a program, and its result, is affected by 
both the file organization and the file access mode. 



DELETE 



i file-name RECORD 

I [; INVALID KEY Imperative-statement] 

( .Fl.L6 -:--i<ifa-^mB'[---,;; .,■„> 



Figure 5-8. DELETE Statement Format 



Tha file must be open for I-O; any access mode is 
allowed. Execution of DELETE updates any FILE 
STATUS data item defined for the file. 

File-name specifies the file from which a record is 
to be deleted. It must be specified in an FD entry 
in the File Section and can be described in a sub- 
schema. It must not be a file with sequential or 
word-address organization. The contents of the 
record area associated with file-name is not 
affected by DELETE execution. 

Specification of the record to be deleted is dif- 
ferent for different access modes: 



For a file open in the sequential access mode, 
the last input-output statement preceding 
DELETE must be a format 1 READ statement. 
IffiLETE then deletes the record read by the READ 
statement. 

For a file open in the random access mode or in 
the djmamic access mode, the record to be 
deleted is identified by the data item speci- 
fied by: 

RELATIVE KEY clause associated with file- 
name. If the file has relative organization 

RECORD KEY clause associated with file- 
name, if the file has Indexed, direct, or 
actual-key organization 

The INVALID KEY phrase can be used only for files 
open in random access or dynamic access mode. The 
imperative-statement is executed when the file does 
not contain the record specified by the key of the 
record to be deleted. When the phrase is omitted, 
strict ANSI usage requires an appropriate format 1 
USE statement for the file. See the FILE STATUS 
clause In section 3. 

The DELETE FILE statement deletes the file from the 
system. Tlie file cannot be in the open mode at the 
time of execution of the DELETE FILE statement. A 
RETURN request is Issued to the operating system on 
the file. Tf the file is a local file, the space 
Is returned lo the system arid all information in 
the file is lost. If the file is on magnetic tape, 
the tape is unloaded. 



DISABLE STATEMENT 

The DISABLE statement allows MCS to break logical 
paths that contain sources, destinations, input 
queues, or output queues. The DISABLE statement is 
only allowed under NOS. See section 14, Message 
Control System. 



DISPLAY STATEMENT 

The DISPLAY statement (figure 5-9) transfers one or 
more literals or the contents of one or more data 
items to a specified device or file. It is ineffi- 
cient for large volumes of data, but its use is 
preferable when only a few lines of information are 
to be written. With this statement, information 
can be transferred to any sequential file or to the 
central site operator console. When the program is 
executing under control of a terminal, information 
can also be transferred to the terminal or to a 
file connected to the terminal. 



DISPLAY {Si.,} 



r, literal-2 1 

I jdentifier-2 I [ UPON mnemonic-name] 

[WITH NO ADVANCING] 



Figure 5-9. DISPLAY Statement Format 
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Each literal and the contents of each identifier 
specified are transferred to a device or file In 
the order of specification. Literal-1 and literal-2 
can specify a nonnumerlc literal or any figurative 
constant except ALL; only a single occurrence of a 
figurative constant is displayed. An unsigned 
integer, or any other numeric literal, is allowed 
for literal-1 and llteral-2. 

Multiple items in a single DISPLAY statement appear 
in a single line or record, to the limit of the 
line possible for the implementor-name associated 
with the mnemonic-name of the UPON phrase. The 
maximum number of characters that can be displayed 
on a single line or written as a single record 
follows : 

If CONSOLE is the implementor-name, 40 is the 
maxlmtmi number of characters. 

If "TERMINAL" or any connected file is the 
implementor-name, 72 is the maximum number of 
characters for NOS. The size specified by the 
SCREEN command is the maximum for NOS/BE; 72 
characters is the default. This default can be 
overridden by a FILE control statement. 

For all other implementor-names, 136 Is the 
maximum number of characters. This value can 
be reduced by the FL parameter of a FILE 
control statement. If the file associated with 
the DISPLAY statement was originally opened 
with an OPEN statement, the maximum record 
length associated with the file is used. The 
maximum record length is normally the size of 
the largest record area. 

Additional lines or records are written as necessary 
when data exceeds these limits. 

At the central site console, any character with a 
display code value greater than 55g or with a 00 
display code value appears as a blank. At a 
terminal, all characters are possible, with the 
particular representation of a character dependent 
on the terminal used. 



When ANSI=NOEDIT is specified on the COBOL compiler 
call statement, the DISPLAY statement performs no 
editing of displayed items. 



UPON Phrase 

The UPON phrase specifies where the information is 
to be displayed. When the phrase is omitted, 
information appears on the system file OUTPUT. 

The mnemonic-name of the UPON phrase must be asso- 
ciated with an implementor-name in the SPECIAL- 
NAMES paragraph of the Environment Division. An 
implementor-name of CONSOLE or "TERMINAL" results 
in Information being displayed at the console or 
terminal, respectively. Any other implementor-name 
results in the information being written to the 
file specified. 

The file to which infonnation is written Is assumed 
to have sequential organization with C type blocking 
and Z 1 ype records. 

When the implementor-name is "OUTPUT", the .<!ystem 
provides single-bpac i iig oC lecords displayed. 
(This is in contrast to display of records through 
a WRITE statement that references a flic connected 
to a terminal. WRITE does not supply a carriage 
control ohdracter for a connected file.) The first 
^-.haractcr of the record i.s displayed when the 
DISPLAY ntalument references a tile named "OUTPUT". 

Under the NOS/BE iip(<rating system, information 
displayed bt'gins with the second character of a 
record when ihP implementor-naBie is "TERMINAL -C" or 
;s "OUTPUT-C" and the file is connected to a termi- 
nal. The first character of the record Is used ae 
carriage control information and the record is 
displayed accordingly. 

Upon exit from the COBOL program, the file speci- 
fied ia the Ij'PON phrase Is rewound unless It is the 
file OUTPUT or is. connected to a toroLnol . 



Items are displayed in the following formats: 

Alphanumeric character-string items are dis- 
played as in the source program. 

Literal items are displayed as in the source 
program. 

COMP-2 items are displayed in scientific expo- 
nential notation. The value of the item is the 
number to the left of the E raised to the power 
shown to the right of the E. Group Items 
containing COMP-2 items should not be displayed. 

Integer numeric items, other than COMP-2 items, 
are displayed as the number of digits in the 
PICTURE clause, with leading zeros suppressed. 
The digits are preceded by a minus sign (if 
negative) or a space (if positive) and the 
decimal point is inserted. 

Noninteger numeric items, other than COMP-2 
items, are displayed as the numeric value 
defined by the PICTURE clause, with leading 
zeros suppressed. The digits are preceded by a 
minus sign (if negative) or a space (if posi- 
tive) and the decimal point is inserted. 



WITH NO ADVANCING Phrase 

"he WT'Ili HO ADVANCING phrase is used primarily with 
interactive terminals. The phrase causes the 
tcrmincil output mechanism to be positioned alter 
the Inst character displayed so thiit subsequent 
::.itii tli.it is accepted or displayed begins on the 
oame Jini^. 11il- phrase works differently on files 
.iss;)c iatt-d with a terminal under the NOS or NOS/BE 
operating system. 



.'hroufih lAF under NOS, an ACCEPT statement that 
-ollows 1 DISPLAY WITH NO ADVANCING statement, 
vliere both stitements are from a file associated 
h'itli J ti'rmi-i.il, r.iuKi:!- .-i prompt (question mark and 
■ipace) to be issued after the last displayed cbar- 
.icter. Datri :s read beginning with the position 

Similarly, a DISPLAY slate- 
DISPLAY WITH NO ADVANCING 
same conditions causes data 
the same line i oil owing the 
WITH NO ADVANCING statement. 
However, to accomplish the KITH KO ADVANCING, UF 
might add a trailing blank to any data Item dis- 
plHved lo the li-rminal. 



following tl'ie prompt, 
incur th.it follows a 
:. t a temLFil 'iUkU'I" the'-.e 
til be .lispLayed upon 
Jdt-i iron tln.1 DISPLAY 
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Through INTERCOM under NOS/BE, an ACCEPT statenent 
thac follows a DISPLAY WITH NO ADVANCING statement, 
where both statements are on a file associated with 
a terminal, causes data to be read beginning with 
the position following the last displayed character. 
Similarly, a DISPLAY statement that follows a 
DISPLAY WITH NO ADVANCING statement under these 
same conditions causes overprinting. 

If the WITH NO ADVANCING phrase is used with any 
device other than an interactive terminal, regard- 
less of the operating system, the phrase causes 
overprinting of the previous line. The internal 
software of some terminals overrides this phrase 
and automatically advances the line. 



DIVIDE STATEMENT 

The DIVIDE statement (figure 5-10) divides one 
elementary numeric data item into others. The data 
item that receives the result depends on the format 
used: 



Format 1 stores the result In the dividend 
operand Identifier. 

Format 2 stores the result in an identifier 
other than the dividend or divisor. 

Format 3 is logically equivalent to format 2 
with the dividend and divisor reversed in the 
statement. 

Format 4 stores the result in an identifier 
other than the dividend or divisor and stores 
the remainder in another identifier. 

Format 5 is logically equivalent to format 4, 
with the dividend and divisor reversed in the 
statement. 

The composite size of all receiving data items, 
except the REMAINDER data item, is limited to 18 
digits. The composite size is determined by 
superimposing all receiving Identifiers on their 
respective decimal points in a hypothetical data 
Item. 
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Format 1 



j identifier-1 \ r T 

DIVIDE \ijteral-1 ) "^TO identifier-2 [ ROUNDED ] , identifier-3 [ ROUNDED ] 



[; ON SIZE ERROR imperative-statement] 



Formert 2 



( identifier-1 1 i Identifier-2 ) 

DIVIDE \ijteral-1 ( 'NTO \iiteral-2 ( GIVING identifier-3 [ ROUNDED ] 

r, identifier-4 [ ROUNDED ]! . . . [; ON SIZE ERROR imperative-statement] 



Format 3 



f identifier-1 ) f identifier-2 ) 

DIVIDE \ iiteral-1 f BY \ |jteral-2 ( G'VING identlfier-3 [ ROUNDED ] 

r, identifier-4 [ ROUNDED ] 1 . . . [; ON SIZE ERROR imperative-statement] 



Format 4 



_ ( identifier-1 \ _ ( identifier-2 ) 

DIVIDE jijteral-1 ) INTO \|iteral-2 / GIVING identifier-3 [ ROUNDED ] 



REMAINDER identifier-4 [; ON SIZE ERROR imperative-statement] 



Format 5 



»..,.~.. f identifier-1 \ j identif ier-2 \. 

DIVIDE \iiteral-1 J iY \|iteral-2 ) GIVING identifier-3 [ROUNDED] 



REMAINDER identlfier-4 [; ON SIZE ERROR imperative-statement] 



Figure 5-10. DIVIDE Statement Format 



The ROUKDES phrase and the SIZE EREIOR phrase are 
discussed with the ADD statement. Additional 
Information about arithmetic operations Is in 
section 1. 

Division by zero always causes a size error 
condition. 

All literals used in the DIVIDE statement must be 
numeric. All identifiers must be elementary 
numeric items, except for those in GIVING or 
KEMAINDER phrases that can specify elementary 
numeric edited items. 



Format 2 DIVIDE 

Format 2 DIVIDE occurs as follows: The value of 
identlfier-1 or literal-1 is divided into the value 
of identifier-2 or llteral-2. The result is stored 
as the new value of identifier-3. If ldentlfler-4 
is specified, the result is stored as the new value 
of each identlfier-4. 

Any literal must be numeric; identlfier-1 and 
ldentlfler-2 must specify elementary numeric 
items. Identifier-3 and identlfier-4 can specify 
elementary numeric or elementary numeric edited 
items. 



Format 1 DIVIDE 

Format 1 DIVIDE occurs as follows: The value of 
ldentifier-1 or literal-1 is divided into the 
current value of ldentifier-2. The result is 
stored as the new value of ldentifler-2. If 
ldentlfier-3 is specified, the value of identifier-1 
or literal-1 is divided Into, and the result stored 
in, each ldentlfler-3 specified. 



Any literal must be numeric; all Identifiers must 
specify elementary numeric items. 



Format 3 DIVIDE 

Format 3 DIVIDE is logically equivalent to format 2, 
except that identlfler-2 or literal-2 is divided 
into ldentifier-1 or literal-1. 



Format 4 DIVIDE 

Format 4 DIVIDE occurs as follows: The value of 
identifler-1 or literal-1 is divided into the value 
of identlfier-2 or literal-2. The result is stored 
as the new value of identifier-3. Any remainder 
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from the division is stored as the new value of 
identificr-4. Any literal must be numeric; 
ldentifler-1 and ldentlfler-2 must specify elemen- 
tary numeric items. Identlfier-3 and identifier-4 
cein be elementary numeric edited items. 

The remainder is defined as the result of 

subtracting from identlfier-2 or literal-2 the 

product of identif ier-1 or literal-1 and 
identifier-3. 

The accuracy of the remainder is affected by the 
specification of identif ler-3 : 

If identifier-3 is a numeric edited item, the 
remainder calculation uses an Intermediate 
field containing an unedited quotient. 

If ldentifler-3 is an unsigned Item, the 
remainder calculation uses an Intermediate 
field containing a signed quotient. 

If identifier-3 Is modified by the ROUMDED 
phrase, the remainder calculation uses an 
Intermediate field containing a quotient in a 
truncated (not a rounded) form. 

Use of a COMP-2 item in division always results in 
a zero remainder. 



EXIT [ PROGRAM ! 



Figure 5-11. EXIT Statement Format 



EXIT PROGRAM does not return control to the 
operating system. STOP RUN is the proper termi- 
nation of a main program. 

When only the keyword EXIT appears, the statement 
has no effect on program compilation or execution 
other than to allow a procedure-name to be assigned 
to a given point in a program. It can be used to 
provide a common end point for a series of pro- 
cedures. In this case, EXIT must be the only 
sentence in the paragraph. 



GENERATE STATEMENT 

The GENERATE statement produces a report In 
accordance with the report description specified in 
the Report Section of the Data Division. See 
section 6, Report Writer Facility. 



If a size error condition occurs on the quotient, 
no remainder calculation Is meaningful and the 
contents of identifier-3 and ldentlfier-4 are 
unchanged. If a size error condition occurs in the 
remainder, identif ier-4 remains unchanged; however, 
as with other instances of multiple results of 
arithmetic statements, the programmer is respon- 
sible for any analysis to recognize which situation 
actually occurred. 



Format 5 DIVIDE 

Format 5 DIVIDE is logically equivalent to 
format 4, except that ldentlfler-2 or llteral-2 is 
divided into identif ler-1 or literal-1. 



ENABLE STATEMENT 

The ENABLE STATEMENT causes MCS to establish the 
logical paths between a specified symbolic name and 
all queues that receive messages from or send 
messages to MCS. See section 14, Message Control 
System. 



ENTER STATEMENT 

The ENTER statement transfers control to a 
subprogram written in the COMPASS assembly language 
or FORTRAN. See section 15, Inter-Program 
Communication Facility. 



EXIT STATEMENT 

The EXIT statement (figure 5-11) has two functions: 

EXIT provides a common exit point for a series 
of procedures in a main program or subprogram. 

EXIT PROGRAM returns control from a called 
program to the calling program. See section 15, 
Inter-Program Communication Facility. 



GO TO STATEMENT 

The GO TO statement (figure 5-12) transfers control 
from one part of the Procedure Division to the 
paragraph or section identified in the statement. 



Format 1 






GO TO [ procedure-name-1 ] 






Format 2 






GO TO procedure-name-1 






[, procedure-name-21 . . . 


, procedure- 


■name-n 


DEPENDING ON identifier 





Figure 5-12. GO TO Statement Format 

Format 1 names the procedure to which control 
transfers; this procedure-name can be modified 
by execution of an ALTER statement. 

Format 2 transfers control to a procedure 
selected by the value of an identifier in the 
statement . 

Control can be transferred to any paragraph or 
section in any segment of the program. 



Format 1 GO TO 

Format 1 transfers control to the procedure-name 
existing at the time the statement executes. The 
paragraph-name or section-name compiled Into the 
statement can be changed by an ALTER statement that 
executes prior to the GO TO statement execution. 
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If procedure-name- 1 Is omitted from format 1, the 
GO TO statement must appear in a paragraph that 
contains only the GO TO statement. In this case, 
an ALTER statement must execute prior to the GO TO 
statement to establish the procedure-name for 
control transfer. 



Format 2 GO TO 

Format 2 transfers control to one of several 
specified procedures, depending on the value of the 
identifier at the time the statement executes. 
Identifier must be~ an elementary numeric item 
containing a positive or unsigned integer; it must 
be described by a USAGE clause specifying DISPLAY, 
COMP, or COMP-1; and it cannot be scaled. 

One procedure-name must be specified for each value 
that the identifier might assume. When the value 
of the identifier is 1, control transfers to the 
first procedure-name specified; when the identifier 
value is 4, control transfers to the fourth 
procedure-name specified; and so forth. A value 
other than a positive or unsigned Integer, or a 
value exceeding the number of procedure-names 
specified, transfers control to the next statement 
in the normal sequence of execution. 



IF STATEMENT 

The IF statement (figure 5-13) evaluates the 
specified condition. The next program action 
depends on whether the condition is true or false: 

If the condition is true, the statement 
immediately following the IF statement is 
executed . 

If the condition is false, the statement 
immediately following the keyword ELSE is 
executed . 



i , statement-1 



IF condition; [THEN] \ mext SENTENCE 

( ; ELSE statement- 2 . . . Il; :i|ij 
I ; ELSE NEXT SENTENCE 



Figure 5-13. IF Statement Format 



Section 1 discusses conditions. 

The keywords ELSE NEXT SENTENCE can be omitted if 

they immediately precede the period separator at 

the end of a sentence. If the EKD-IF phrase Is 

specified, the NEXT SENTENCE phrase must nor be 
specified. 

Both statement-1 and statement-2 can be conditional 
statements or Imperative statements; either can 
be followed by a conditional statement. (See 
table 5-1.) Either statement can contain an IF 
statement; in this case, the IF statement is said 
to be nested. 



A nested IF statement can be considered as paired 
IF and ELSE combinations, proceeding from left to 
right. Thus, any ELSE encountered is considered to 
apply to the immediately preceding IF that has not 
been paired with an ELSE or an END-IF. An example 
of a nested IF in which IF B and ELSE ADD are 
paired and IF A and ELSE GO TO are paired Is shown 
in figure 5-14. 



IF A IS NUMERIC MULTIPLY A BY B 


IF B IS LESS THAN 50 


ADD A B TO C 


ELSE ADD A B TO D 


ELSE GO TO BADCLASS, 



Figure 5-14. Example of Nested IF Statement 

TiLC 'fcope of <ii. TF btateikt^isC Cun On terial I'.eLed by 
-n ESD-IF at the t-amu '..evel of nesting. Ar. ESD-7F 
applies tu thi< preceding IF stLiteet-.nL that has not 
bten paired wltli <in ESU-IF. 4n l■^ami)Ju nz 
de'i-nltcd IK st itPEit-nts is shown in 7lgijre 5-i5. 



IF A = 1 

IF B = 2 

PERFORM B2-C0DE 
ELSE 

PERFORM 1M0T-B2-C0DF 
END-IF 
IF C = 3 

PERFORM C-CHECK 
END-IF 

PERFORM A1-C0DE 
ELSE 

PERFORM NOT -A1 -CODE 
END-IF. 



Figure 5-15. Example of DELIMITED IF Statement 



INITIALIZE STATEMENT 

Ii'.o 7NrriM."-.E <i;ateaent ! f.garo 5-ls) sets 
bclc-tcd ■icsg.ir.L.- I* cd'.-i i^Lin". to prenuLdrm: nod 
va 1 JL s . 



INITIALIZE identifier-1 



identifier -2! 



REPLACING 



ALPH ABETIC 

ALPHANUM ERIC 

NUMERIC 

a lph a numer i c- e dited 

"num eric-editl d" 

b6o"lea\!" 



I identi'i-r-3 i 



DATA 



i^ I ht'jidl 



I 



Figure 5-16. INITIALIZE Statement Format 
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In the statement, identlfler-1 and any identlfier-2 
represent receiving Items; ldentlfJer-3 and literal' 
represent the sending Item. When the SEPLACING i 
phrase Is omitted, a figurative constant Is the 
sending item. INITIALIZE executes as If a series 
of MOVE statements had been written with the 
specified sending item and elemuntary receiving 
items. Any subscripting or indexing associated 
with the sending or receiving items is evaluated 
only once. Immediately before any item is 
initialized. 

Index data items and elementary FILLER data items 
are not affected by IN CT J ALIZE . A group FILLER 
item can only be affected indirectly by way of each 
named elementary Item within It. 

Identif ier-1 and identlfier-2 can be group or 
elementary items. They have the following 
restrictions: 

Level 66 and index data items muflt not be used. 

Neither the identifiers nor items subordinate 
to them can be described by the DEPENDING ON 
phrase of the OCCURS clause. 

Any Item that is subordinate to a receiving 
area identifier and which contains the REDEFINES 
clause Is excluded from this operation. Any 
item that is subordinate to such an item is 
also excluded. However, a receiving a ma 
Identifier can itself have a REDEFINES cNiuse 
or be subordinate to a dat^ item with a 
REDEFINES clause. 

If identlfler-l or any ldentifler-2 is a group 
item. It cannot be reference modified. 

When the REPLACING phrase is omitted, receiving 
items are set as follows: 



INSPECT STATEMENT 

The INSPECT statement (figure 5-17) determines the I 
number of occurrences of one or more characters in 
a data Item; and, depending on the format of the 
statement, either counts, or replaces, or counts 
and replaces the characters Identified. - 

Format 1 counts the number of times a specified 
character string appears. 



Format 2 replaces occurrences of a specified 
character string with a character string of 
equal length. 



Format 3 combines the operations of format 1 
and format 2. 

In all formats, the data item to be inspected, 
identif ier-1, must be described as USAGE IS 
DISPLAY. {Implicit DISPLAY usage exists for all 
group items and for elementary items not otherwise 
declared with a USAGE clause.) The data item to 
hold the tally, identif ler-2, must be an elementary 
numeric item. All other data items in the format 
must be elementary items in the alphabetic or 
alphanumeric class, or be numeric class items 
specified as USAGE IS DISPLAY. Nonnumerlc 
literals. Including figurative constants except 
ALL, must be used in the formats. 



A figurative constant is one character in length 
for search or tallying purposes. When it is the 
replacing string , a figurative constant repeats as 
necessary to equal the size of the string to be 
replaced. 



Alphabetic, alphanumeric, and alphanimier Ic 
edited items are set to the figurative constant 
SPACES. 

Numeric and nimieric edited items are set to the 
figurative constant ZEROS. 

Boolean items are set to all boolean cnar.ictcr 
zeros. 

The REPLACING phrase specifies a L'Leral or other 
item that Is implicitly moved to each receiving 
item. The category of the sending item and any 
elementary receiving item must be consi "stunt with 
the category defined by the keyword udej in the 
REPLACING phrase. Identif ier-3 must not be an 
index data item. 

rfhen the receiving identifier is a group item, an 
elementary item within it Is affected only when the 
flcmenlary item category Is the same h.i> that 
declared In the phrase. All such elemc:itary 
receiving fields, including all occucrenctb of 
table items within the group, are affected. 



Inspection Cycle 

For all formats, inspection of identif ier-1 occurs 
as a series of cycles. Each cycle is the same 
except for the position within identifier-1 at 
which the cycle begins. The string being sought in 
identifier-1 follows the kejwords ALL, LEADING, and 
FIRST and is within the boundaries established by 
any BEFORE INITIAL or AFTER INITIAL phrases. 
Another appearance of ALL, LEADING, or FIRST 
defines a subsequent search string. 



A series of inspection cycles is made until each 
character position in identifier-1, within the 
limits of any BEFORE and AFTER phrases, has been 
either the beginning character position for an 
inspection or a part of a matching character 
string. For the inspections: 

BEFORE begins inspection at the leftmost 
character position of identifier-1 and stops at 
the beginning of the string specified by the 
BEFORE phrase. 



INITIATE STATEMENT 

The INITIATE statement begins processing of a 
report. See section 6, Report Writer Facility. 



AFTER begins inspection immediately to the 
right of the string specified by the AFTER 
phrase and stops at the rightmost character 
position of identifier-!. 
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The number of Inspection cycles depends on the 
keywords used in the format: 

When the word CHARACTERS Is specified, each 
character position in identifier-1, within the 
limits of any BEFORE or AFTER phrase, is 
considered to meet search criteria and is 
counted or replaced by the single character 
item following the keywords CHARACTERS BY. 



When the keyword ALL is specified, inspections 
are repeated until all characters in 
identifier-1 have been considered as the 
beginning character position or part of a 
match, within the limits of any BEFORE or AFTER 
phrase . 

When the keyword LEADING is specified, 
inspections are repeated only as long as the 
first cycle finds a match and immediately 
successive inspections find a match. 



When the word FIRST is specified for formats 2 
or 3, inspections continue until one match has 
been found and the string or strings replaced. 

The first in the cycles of inspections of 
identifier-1 begins at the leftmost character 
position of the data item or at the position 
specified by a BEFORE or AFTER phrase. Each string 
to be tallied or replaced is compared, in turn, 
with an equal number of characters in the data 
item; the comparison for each string begins in the 
same character position. Whenever a match occurs, 
tallying and/ or replacing takes place and a new 
cycle begins. 

The beginning character position is updated before 
the new cycle starts. If no match has been found 
on the previous inspection, the next inspection 
cycle begins at the character position immediately 
to the right of the beginning character position 
for previous inspection. If a match has been 
found, however, inspection begins one character 
immediately to the right of the matching characters 
in the data item. 

During inspection, all items described as 
alphanumeric are treated as a character-string. 
All items that are of the category alphanumeric 
edited, nvmieric edited, boolean, or unsigned 
numeric are treated as alphanumeric items. Signed 
nimerlc items are treated as If they had been moved 
to unsigned numeric items , so that only the 
absolute value of the data item is relevant for 
comparison. 



Format 1 INSPECT 

Format 1 Is a tallying operation. Identifier-2 is 
the tally item. It must be an elementary numeric 
data item. Identifier-2 is not initialized by 
INSPECT. 

If the ALL phrase is specified, the value of the 
data item referenced by identifier-2 is incremented 
by one for each occurrence of literal-1 or 
identlfier-3 matched within the contents of the 
data item referenced by identifier-1. 



If the LEADING phrase is specified, the value of 
the data item referenced by identifier-2 is 
incremented by one for each leading contiguous 
occurrence of literal-1 or identlfier-3 matched 
within the contents of the data item referenced by 
identifier-1. 

If the CHARACTERS phrase is specified, the value of 
the data item referenced by identifier-2 is 
incremented by one for each character within the 
contents of the data item referenced by 
identifier-1. 



Format 2 INSPECT 

Format 2 is a replacing operation. The replacing 
string, literal-4 or identifier-6, must have the 
same number of characters as the string to be 
replaced. When the replacing string and the string 
to be replaced share a part of their storage areas, 
the results are undefined. 

When the word CHARACTERS is specified, literal-4 
and literal-5 and the data items referenced by any 
identifier-6 and identlfier-7 must be one character 
in length. 

The required words ALL, LEADING, and FIRST are 
adjectives that apply to each succeeding BY phrase 
until the next adjective appears. 

When the word ALL is specified, each occurrence of 
literal-3 or identifier-5 matched in the contents 
of the data item referenced by identifier-1 is 
replaced by literal-4 or identifier-6. When more 
than one ALL phrase exists in a REPLACING phrase, 
each replacement is performed on the original 
character-string . 

When the word LEADING is specified, each leading 
contiguous occurrence of literal-3 or identifier-5 
matched in the contents of the data item referenced 
by identifier-1 is replaced by liter^al-4 or 
identifier-6. 

When the word FIRST is specified, the leftmost 
occurrence of llteral-3 or identifier-5 matched 
within the contents of the data item referenced by 
identifier-1 is replaced by literal-4 or 
identifier-6. 

When a figurative constant is used as literal-3, 
the data referenced by literal-4 or identifier-6 
must be one character in length. 



Format 3 INSPECT 

Format 3 is interpreted and executed as though a 
format 2 INSPECT and a format 1 INSPECT were 
executed for the same identif ler-1 . The syntax of 
formats 1 and 2 also applies to format 3. 

The order in which tallying and replacing take 
place depends on the word immediately preceding the 
keyword REPLACING: 

Wlitjn AFTER is spL'Cified, repiacument occurd 
before tallying. 

When BEFORE is specified, tallying occurs 
before replacing. 
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When neither word is Rpeclfied, tallying occurs 
before replacing. 

Examples of INSPECT statement use are: 

INSPECT WD-1 TALLYING CT-1 FOR ALL "P" BEFORE 
REPLACING FIRST "P" BY "Q". Assuming that the 
program Initialized CT-1 to zero and WD-1 holds 
HIPPOPOTOMUS , the statement results In a value 
of 3 for CT-1 and a value of HIQPOPOTOMUS In 
WD-1. 

INSPECT WD2 REPLACING ALL "P" BY "Q" AFTER 

INITIAL "P". Assuming that WD2 holds a value 

LOLLIPOP, the statement results In a value of 
LOLLIPOQ in WD2. 

INSPECT WD3 REPLACING ALL "TT" BY "XX", ALL 
"AX" BY "YY". Assuming that WD3 holds a value 
FLATTERY, the statement results In a value of 
FLAXXERY. 



or any other receiving item, is evaluated imme- 
diately before the data is moved. Any subscripting. 
Indexing, i^^^^^JS^^^^I^' associated with 
the sending item (identifler-1) is evaluated only | 
once, immediately before data is moved to the first 
receiving item. The move occurs as if the following 
equivalent statements were written, where TEMP is 
an intermediate result with the size and type 
of A(B): 

MOVE A(B) TO B, C(B) 

is equivalent to 

MOVE A(B) TO TEMP 
MOVE TEMP TO B 
MOVE TEMP TO C(B) 

When the sending Item is smaller than the receiving 
Item, data is aligned in the receiving Item and 
zero or blank filled: 



MERGE STATEMENT 

The MERGE statement combines two or more Identically 
sequenced files on a set of specified keys. See 
section 7, Sort/Merge Facility. 



MOVE STATEMENT 

The MOVE statement (figure 5-18) transfers data 
from one data item to one or more other data items 
in accordance with the rules of editing. 

Format 1 transfers specified elementary or 
group items to other specified Items. 

Format 2 transfers selected elementary Items 
within the specified group item to correspond- 
ing elementary items in other specified group 
items . 

Data remains available in the sending item after 
MOVE execution. 

Identifier-1 and literal-1 represent the sending 
item; all other identifiers represent receiving 
items. When a sending item and a receiving item 
share % part of their storage areas, the results 
are undefined. 

When more than one receiving item is specified, the 
data designated by the literal or ldentlfiar-1 is 
moved first to identlfier-2, then to ldentifler-3, 
and so forth. Any subscripting, indexing, .fl^" 
')C«SB*B<to#.*liWJiip|fe#f#«(* associated with ldentlfter-2 j' 



Category alphanumeric, alphabetic, and 
alphanumeric edited items are aligned at the 
left unless the JUSTIFIED clause specifies 
right alignment. Blank fill completes the 
item. The ALL option of a figurative constant 
fills these items without blanks. Any other 
editing specified by the picture of the 
receiving item, such as $ or +, is followed 
during the move. 

Category numeric and numeric edited items are 
aligned by the decimal point whether the 
decimal point is explicitly stated or assumed. 
Any other editing specified by the picture of 
the receiving item, such as $ or +, is followed 
during the move. 

Category boolean items are aligned at the left 
unless the JUSTIFIED clause specifies right 
alignment. Zero fill completes the item. 

When the sending item is larger than the receiving 
item, data in the receiving item is truncated, as 
appropriate: 

Category alphanumeric, alphabetic, and 
alphanumeric edited items are aligned left and 
truncated on the right, unless the JUSTIFIED 
clause is specified for the receiving item. 
When JUSTIFIED appears, items are aligned right 
and truncated on the left. 

Category numeric and numeric edited items are 
aligned by the decimal point whether the 
decimal point is explicitly stated or assumed. 
Truncation can occur at both the left and right. 



Format 1 



..«,... ) identifier-1\ 

MOVE \iiteral-1 ) IS "dentifier-2 [, idantifier-3] 



Format 2 



..«.,.. /CORRESPONDING) 

MOVE 'IcobI ) 'dentifier-l TO identifier-2 [, identifier-3] 



Figure 5-18. MOVE Statement Format 
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Category boolean Items are aligned leTt and 
truncated on the right unless the JUSTlflKD 
clause Is spccilied for the receiving item. 
When .TUSTIFIED is specified, itums aru uiigued 
right and truncated on the left. 

When the sending item is COMP-1, COMP-2, or COMP-4, 
and the receiving item is DISPLAY, COMP, or numeric 
edited, decimal truncation of the high order digits 
is not attempted. 



Format 1 MOVE 



ALL Literal or Figurative Constant to Numeric 
or Numeric Edited Item 

Sending string, which must be only digits, 
is repeated on the right until the string 
size equals the size of the integer portion 
of the receiving item. 

Legal Operand to Alphabetic Item 

Any nonalphabetic characters are moved 
without detection. 



A format 1 MOVE moves elementary or group items. 
Identifier-1 or literal-1 is moved to identifier-2. 
If identifler-3 is specified, identlfier-1 or 
literal-1 is also moved to each identifier-3 
specified. The move to identifler-3 is independent 
of any prior identifier-2 or identifier-3. 



Signed Numeric to Alphanumeric or Alphanumeric 
Edited Item 

Operational sign is not moved. If the 
operational sign is described as SEPARATE, 
the size of the sending item is considered 
to be one less than its actual size. 



Group Item Move 



COMP-1 or COMP-4 to Alphanumeric Item 



When format 1 is used and the sending or receiving 
item is a group item, the move is termed a group 
item move. In this instance, the move occurs as if 
it were an alphanumeric-to-alphanimieric elementary 
move. No conversion of data from one form of 
internal representation to another occurs. The 
receiving area is filled without consideration for 
the individual elementary or group items , contained 
within either the sending or receiving area, except 
for a group sending Item that has a subordinate 
format 2 OCCURS clause description. For this 
latter type of item, only that part of the table 
area specified by the value of the DEPENDING ON 
data-name phrase is moved. When the sending item 
is a group item, no editing takes place. The 
description of the receiving field is ignored 
except for its size. 



Item is moved to an intermediate COMP item 
with the same picture but no sign, then 
treated as an alphanumeric item. 



DISPLAY Item to Alphanumeric or Alphanumeric 
Edited Item 



Treated as alphanumeric except 
operational sign described above. 



for 



USAGE Other than DISPLAY to Alphanumeric Edited 
Item 

Sending item is converted before the move 
to an intermediate alphanumeric item with a 
size equal to the number of noninsertion 
characters. 



Elementary Item Move 

When elementary items are specified for both the 
sending and receiving items , the move is termed an 
elementary move. Table 5-3 shows legal moves 
between items and indicates the move procedures. 
Additional information about moves between specific 
types of items follows. 

Legal Operand to Signed Numeric Item 



Numeric Literal to Alphanumeric or Alphanumeric 
Edited Item 

Treated as nonnumeric literal excluding 
sign. 

ZERO to Alphanumeric or Alphanumeric Edited Item 

Treated as if ALL were specified. 



Sign representation is converted as 
necessary. A positive sign is generated 
for an unsigned sending item. If the 
receiving Item sign is described by 
SEPARATE, the numeric size Is one less than 
the actual size of the receiving item. 

Legal Operand to Unsigned Numeric Item 

Absolute value of the sending item is 
moved, with no sign generated for the 
receiving item. COMP-2 items are rounded, 
moved to an intermediate COMP item, then 
the absolute value is moved to the 
receiving item. 

Alphanumeric to Nimieric or Numeric Edited Item 

Sending item is treated as an unsigned 
numeric integer. Move of any nonnimierlc 
characters produces undefined results. 



Table 5-3 also, indicates that some moves are 
algebraic, bool^'ft,= or physical character moves. 
An algebraic move is from a category niimeric or 
numeric edited item to a category numeric or 
numeric edited item as follows: 

In a move to a numeric item, the data is 
aligned by the decimal point and moved to the 
receiving digit positions with zero fill or 
truncation on either end, as required. When an 
assumed decimal point is not explicitly 
specified, the data item is treated as if it 
has an assumed decimal point immediately 
following its rightmost digit. For COMP-1 or 
COMP-4 items, decimal point alignment is 
accomplished by multiplying or dividing the 
data by an appropriate power of ten. For 
COMP-2 items, alignment is never needed since 
the item occupies a full memory word and the 
point location is Implied by the exponent. 



5-18 



60497100 J 



TABLE 5-3. TYPE OF MOVE OPERATIONS 



Sending Operand 


Receiving Data-Item 




Group 
data-item 


Alphabetic 


Alpha- 
numeric 


Alpha- 
numeric 
edited 


Numeric 
edited 


Numeric 
integer/ 
nonint . 


Index 
data-item 


Boolean 


Group data-Item 


P 


P 


P 


P 


P 


P 


X 


P 


Elementary data-item 


















Alphabetic 


P 


P 


P 


P 


X 


X 


X 


X 


Alphanumeric 


P 


P 


P 


P 


F 


F 


X 


B 


Alphanumeric edited 


P 


P 


P 


P 


X 


X 


X 


X 


Numeric edited 


P 


X 


P 


P 


X 


X 


X 


X 


Numeric Integer 


P 


X 


S 


S 


A 


A 


X 


X 


noninteger 


P 


X 


X 


X 


A 


A 


X 


X 


Boolean 


P 


X 


P 


p 


X 


X 


X 1 


B 


Other operand 


















Literal numeric Integer 


P 


X 


s 


S 


A 


A 


X 


X 


numeric noninteger 


P 


X 


X 


X 


A 


A 


X 


X 


nonnumerlc 


P 


p 


p 


p 


F 


F 


X 


B 


boolean 


P 


X 


p 


p 


X 


X 


X 


B 


Figurative constant ZEROS 


P 


X 


p 


p 


A 


A 


X 


B 


SPACES 


P 


p 


p 


p 


X 


X 


X 


X 


Other 


P 


p 


p 


p 


F 


F 


X 


X 


Index data-Item 


X 


X 


X 


X 


X 


X 


X 


X 


Legend : 














A Algebraic move 














3 Boolean move 














F Alphanumeric item treated as unsigned numeric d 


Isplay it 


em with a 


Igebralc 


move 






P Physical move 














S Sign removed; physical move to display Item 














X Not allowed 















A move to a ntmerlc edited item is the same as 

to a numeric item, except where editing 

requirements cause replacement of the leading 
zeros . 



to the receiving character positions and 
aligned at the leftmost character position in 
the data item, with space fill or truncation to 
the right, as required. 



A physical move Involving a category alphabetic, 
alphanumeric, or alphanumeric edited receiving item 
is as follows: 

If the JUSTIFIED clause is not specified for 
the receiving item, the sending data is moved 



If the JUSTIFIED clause is specified for the 
receiving item, sending data is aligned at the 
rightmost character position in the receiving 
data item with space fill or truncation to the 
left, as required. 
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A boolean move is an elementary move In which the 
receiving Item is boolean. If the JUSTIFIED clause 
Is not specified for the receiving item, the 
sending data is moved to the receiving chjrdctcr 
positions and aligned at the leftmost character 
position, with zero fill or truncation to the rIgliL 
as required. If the JUSTIFIED clause is specified 
for the receiving item, sending data is aligned dt 
the rightmost character position of the receiving 
item, with zero fill or truncation to the left as 
required. 



Format 2 MOVE 

Format 2 MOVE moves selected subordinate 
identifier-1 items to selected data items sub- 
ordinate to identifier-2. Either the keyword 
CORRESPONDING or its equivalent abbreviation CORR 
can be specified in the format. If .idejitilt^r*3 il« 
specified, each identlfi er-5 isS' treated- the saitte' -as 
identifler-2. All identifiers in format 2 must be 
group items. 

Items in identlfler-2 are considered to correspond 
and are selected for the move when all of these 
conditions are true: 

The Item subordinate to identifier-1 has the 
same data-name as an item subordinate to 
identifier-2. 



Either the sending item or the receiving item 
is an elementary data item. 



All possible qualifiers for the sending data 
items, up to but not including identifier-1, 
are identical to all possible qualifiers of the 
receiving data item up to but not including 
ldentlfler-2. Correspondence of Liie qualified 
djt.i-name includes FILLER, even though the word 
FILLER is not otherwise a qualifLer. 



Subordinate items not considered for the move 
include: a data item with a level-number 66 or 88; 
a data item with a Data Description entry contain- 
ing a REDEFINES, OCCURS, or USAGE IS INDEX clause; 
a data item subordinate to one of these items; or a 
FILLER data item. 

Identifier-1 and identifier-2 can include data 
items described by a REDEFINES or OCCURS clause In 
the Data Description entry and data items sub- 
ordinate to such items. They cannot include data 
items with a level-number 66 or with a USAGE IS 
INDEX clause in the Data Description entry. 
Identifiers cannot be reference modified. 

The class of any corresponding pair of data items 
need not be identical for a MOVE statement. 

MOVE CORR X TO Y moves A, B, and G but not C, D, E, 
or F in figure 5-19. 



01 


X 




01 z 




02 


B. 




05 


Y 


02 


C 


^\^ 


■ /" 


A 


03 




FILLER 


>» 


B 


03 




D 


,s 


C 


03 




FILLER 


1 20 


filler 


02 


E 




/ 20 


D 


02 


F 


/ 


15 


E 


03 




filler/ 


10 


F 


03 




a-L 


^15 


G 


02 


A 


1 


15 


FILLER 





Figure 5-19. Example of IVIOVE CORRESPONDING 



TABLE 5-4. EXAMPLES OF MOVE OPERATIONS 



Sending 
Item 


Picture of 
Receiving Item 


Receiving 
Item 


123 

t 


999V99 

9999 

SIGN LEADING 
SEPARATE , 
99V9 

9(10) COMP-1 

9(10) COMP-2 

9(4) COMP-4 




I0I1I2 


im 


i 1 


lololi 


^ 


|-H|1|2|3| 

See section 1 
See section 1 
See section 1 


ALL "37" 


X(5) 




|3[7t3|7|3| 


"ABC" 


-9999.99 


OABC.OO 


-1.999 
COMP-2 


S99 SEPARATE 


02- 



MOVE Examples 

Table 5-4 shows examples of MOVE operations, 
the assumed decimal point. 



tts 



MULTIPLY STATEMENT 

The MULTIPLY statement (figure 5-20) multiplies one 
or more pairs of numeric items and sets the result 
or results in specified data items. The data Item 
that receives the result depends on the format used: 

Format 1 stores the result In the operand 
identifier following the word BY. If more than 
one receiving operand is specified, the 
respective product is stored In each receiving 
operand. 

Format 2 stores the result in an identifier 
other than one of the operands. If more than 
one receiving operand is specified, the product 
is stored In each receiving operand. 
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Format 1 



MULTIPLY {ifteral-Tf BY identifier-2 [ROUNDED] [. identifier-3 [ ROUNDED ]] 
[; ON SIZE ERROR imperative-statement] 



Format 2 

MULTIPLY .literal 



( identifier-1 1 „^, i Wentlfier-a 1 „„,.„ .^ .^ «,„«...,„,.,,, 
\llteraM f i^ ^ uteral-a j GIVING identifer-3 [ ROUNDED ] 

r, identifier-4 [ ROUNDED ]] . . . [; ON SIZE ERROR imperative-statement] 



Figure 5-20. MULTIPLY Statement Format 



The composite size of the data Items In which the 
result Is stored Is limited to 18 digits. The 
composite size Is determined by superimposing all 
result identifiers aligned on their respective 
decimal points in a hypothetical data item. 

The BOUNDED phrase and the SIZE ERROR phrase are 
discussed with the ADD statement. Additional 
Information about arithmetic operations is In 
section 1. 



Format 1 MULTIPLY 

Format 1 MULTIPLY occurs as follows: The value of 
identlfler-1 or llteral-1 is multiplied by the 
current value of Identif ler-2 . The result is 
stored as the new value of identif ier-2. If 
identif ler-3 is specified, the value of identif ler-1 
or literal-1 is multiplied by, and the result 
stored in, each identif ler-3. 

Identifier-1, identlfler-2, ldentifier-3, and all 
literals must be elementary numeric data items. 



Format 2 MULTIPLY 

Format 2 MULTIPLY occurs as follows: The value of 

ldentlfier-1 or literal-1 is multiplied by the 
value of identifier-2 or literal-2. The result is 

stored as the new value of identifier-3. If 

identif ler-4 is specified, the result is also 

stored as the new value of each ldentifier-4 
specified. 



Identif ler-1, identif ier-2, and all literals 
must be elementary numeric items. Identif ler-3 
and identifier-4 can be elementary numeric or 
elementary numeric edited Items. 



OPEN STATEMENT 

The format 1 OPEN statement (figure 5-21) initiates 

file processing. OPEN must be successfully 

executed prior to execution of any other statement 

that references the file, with the following 
exceptions: 

Files accessed by ACCEPT and DISPLAY statements 
cannot be referenced in an OPEN statement, 
except for a file with the implementor-name 
"OUTPUT" . 

Sort or merge files must not be opened by the 
program, as discussed in section 7, Sort/Merge 
Facility. 

Section 6, Report Writer Facility, discusses OPEN 
in relation to report files. 

The format 2 OPEN statement is used to open files 
associated with a relation specified In a subschema. 
Refer to section 16, Subschema Facility. | 

During OPEN statement processing, tape file labels 
are checked or written unless the NO REWIND phrase 
Is specified. In this case, no label processing Is 
performed. For indexed, direct, and actual-key 
files, the key of reference Is set to the primary 



Format 1 






/ fREVERSED "1 f fREVERSED "ll \ 
INPUT file-name-1 ^VITH NO REWIND ■ t'l8-name-2 ^viTH NO REWIND. 


OPEN < 


I OUTPUT file-name-3 [WITH NO REWIND] , file-name-4 [WITH NO REWIND] ... 1 




1-0 file-name-5 [, file-name-6] . . . 




EXTEND file-name-7 [, file-name-8] ... 



Figure 5-21. OPEN Statement Format 1 
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key data Item. The FILE STATUS data Item, if any, 
Is updated. Successful execution of OPEN makes the 
associated record area available to the program; it 
does not obtain or release a data record. 

A file can be opened more than once during a 
program, as long as an Intervening CLOSE statement 
without the REEL/UNIT phrase or LOCK phrase 
precedes a subsequent OPEN. 

If the file to be opened has been described with 
the OPTIONAL keyword of the SELECT clause and the 
file is not present, no program action occurs 
during open processing. See the READ statement. 

In the statement, each file-name must specify the 
name of a file established in a SELECT clause of 
the Environment Division. The FD entry for an 
existing file must describe the same file |tru^^re^ 
as described when_the fjle was^ cre_ated_j_^___ _ 
'""" ' "" ' ----.- .-...-, _ —y^ 

The OPEN statement establishes the open mode and 
positions the file. The specific statements 
allowed subsequently for reading, writing, position- 
ing, or updating a file depend, in addition to the 
open mode, on the ACCESS MODE clause in the 
Environment Division and on the file organization. 
See table 3-3 in section 3. The four open modes 
are established by a keyword of the same name; 



I-O 



INPUT 



Valid for all existing files that are to be 
read, but are not to be extended or updated. 
For tape files, causes any beginning reel 
or file labels to be checked. Positions 
the file to its beginning, unless the file 
resides in the file INPUT or unless the 
REVERSED phrase or the NO REWIND phrase is 
also specified for a tape file. 



Valid for all existing mass storage files 
that are to be read or updated. Positions 
the file to its beginning. 

EXTEND 

Valid for existing sequential mass storage 
files that are to have records added at the 
end of existing records. EXTEND positions 
the file immediately following the last 
logical record of that file. When a file 
opened with EXTEND is subsequently read, no 
boundary exists to distinguish original 
file records from appended records. 

For files on mass storage, OPEN with INPUT or 1-0 
positions the file to the beginning of the first 
record currently existing within the file. If no 
file records exist, the next executed format 1 READ 
statement for the file results in an at end 
condition. 



NO REWIND Phrase 

The NO REWIND phrase is valid only for sequential 
files on tape or mass storage. When the phrase is 
omitted, the file is rewound during OPEN processing. 

NO REWIND does not reposition a file. The program 
is responsible for correct file positioning prior 
to OPEN, such as prior execution of a CLOSE 
statement with the NO REWIND phrase. 

If LABEL RECORDS ARE STANDARD is specified in the 
FD for the file, no label processing is performed. 
If this is the first OPEN of the file, the LABEL 
control statement should be used to properly label 
the file. 



OUTPUT 



Valid for all new files that are to be 
written, but are not to be extended or 
read. Required to create any new file. 
For tape files, causes any beginning reel 
or file labels to be written and the file 
to be positioned after the labels. For 
indexed, direct, and actual key files, the 
first OPEN OUTPUT specified for a file 
determines the collating sequence for the 
keys of the file. (The collating sequence 
affects the following keys: both record 
and alternate keys of indexed files and 
only alternate keys of direct and actual 
key files.) if the ANSI=AUDIT parameter is 
not specified in the C0B0L5 control state- 
ment, the collating sequence for the file 
Is the sequence established for the program 
at the time the OPEN OUTPUT statement is 
executed. If the ANSI=AUDIT parameter is 
specified, the collating sequence for the 
file is the native sequence. The collating 
sequence for a file remains the same for 
the life of the file. 

OPKN OUTPUT causes .m exi---i.Ing f i 'o I •> In- 
returned and a new local file Co be creritcd- 



REVERSED Phrase 

The REVERSED phrase is valid only for sequential 
files. The files must be on mass storage or on a 
single reel of tape. The phrase can be used only 
if the records on the file are record type F, W, or 
Z. If the record type is F, the record length must 
be a multiple of 10 characters. Refer to table 4-3 
in section A to relate record types to Record 
Description Entry Clauses. The block type must not 
be K or E. Refer to the BLOCK CONTAINS clause to 
determine block type. 

REVERSED positions the file at its end, so that 
subsequent READ statements make file records 
available in reverse order: the first record 
returned to the record area is the last record in 
the file. REVERSED phrase processing is ineffi- 
cient; its use should be avoided when possible. 

NOTE 

Because of anticipated changes in this 
product, use of the BIEVERSED phrase is not 
recommended. See appendix F for guidelines. 
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Multifile Set Tape OPEN 

Multifile set files are those declared by the 
MULTIPLE FILE TAPE clause of the I-O-CONTROL 
paragraph; more than one file exists on the reel or 
set of reels. (One file with several partition 
boundaries does not define a multifile set.) 
Treatment of a file contained in a multifile 
environment is logically equivalent to the treat- 
ment of a sequential file contained in a single 
file tape environment. All files in a multifile 
set must have standard labels. 



Only one of the files in a multifile tape can be 
open at any given time. The files can be opened in 
any order when they are to be read. When a file is 
opened with OUTPUT or EXTEND, however, a specific 
tape structure is presumed. The file with the 
position number being written must be preceded by 
existing files with immediately lower position 
numbers. Further, no existing file can have a 
position number higher than that of the file being 
opened. Writing after an open with EXTEND or 
OUTPUT effectively destroys all files positioned 
after the file that was written. 



PERFORM STATEMENT 

The PERFORM statement (figure 5-22) explicitly 
transfers control to a specified set of statements, 
with control returning implicitly when execution of 
the specified statements is complete. If procedure- 
name-1 is specified, the specified set of state- 
ments is a procedure. If procedure-name-1 and 
procedure-name-2 are specified, the specified set 
cf statements Is i range of procedures. ^P 
procedure-name-1 is not specified, the specified 
bet of statements Is an imperative statement, 
delimited by EKD-PGRFOKH. 

The number of times the specified set of statements 
executes depends on the format: 

Format 1 executes the statements one time. 



Format 2 executes the statements the number of 
times indicated in the PERFORM statement. 



Format 3 executes the statements until the 
condition in the PERFORM statement is satisfied. 



Format 1 



PERFORM proc8dure-name-1 UfHRollGHf procedure-name-2j I imperativa-statement E ND-PERFORM ! 



Format 2 



[ri THRU 1 ^ „ll lidentifier-l » ^...„ 

procedure-name-1 1 1 THROUGH ( Proc8dure-name-2 \ jnteger-l I ''1"^° 



[; imperative-statement , END-PERFORM j 



Format 3 



f ' I THRU I 

PERFORM procedure-name-1 [ I jHpioUGH I n'^-iwiure-name 



^-2J|[;w.THTlST.i||f|gl!] 

UNTIL condition-1 [; impsrative-statemant , END-PERFORM ! 



Format 4 



PERFORM procadure-name-1 [{ THROUGH ( procedure-name-2j [.WITH TEST ]||^f|^}] 

I identifier- 1 \ 1 ldentifier-2 \ I identifier-3 I 

VARYING \index-name-1? EBOM ] index-name-2 } BY 1 ,iteral-2 \ UNTIL condition-1 

( literal-1 ) 



(identifier-4 | j identifier- 5 ) )identifier-6l „1 

1index-name-3( EBM j index-name-4 J BY \|iteral-4 ] Uimk condition-2 I 



AFTER 1 index-name-3 ^"""" ) "■ 

Uiteral-3 

f imperative statement END-PER FOR VI 



Figure 5-22. PERFORM Statement Format 
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Format 4 executes the statements until all 
conditions In the PERFORM statement are 
satisfied. 



Format 1 PERFORM 

Format 1 PERFORM executes the specified set of 
statements one time. 



'0.r;is:\00^i'iiMl the procedure to 
be executed by a PERFORM statement should not 
immediately follow the PERFORM statement. The 
procedure might execute one more time than intended. 

A procedure associated with one PERFORM statement 
can overlap or intersect the procedures associated 
with another PERFORM statement, as long as neither 
PERFORM statement Includes a PERFORM statement 
associated with the other procedure. 

If proceduro-name-1 is omitted, an imperative 
statement and the END-PERFORM phrase must be 
specified. If procedure-name- 1 is specified, 
Lmperatl ve-sLatumi:nt and END-PERFORM must not be 
specified. 

When procedure-name-1 is specified, the PERFORM 
statement is referred to as an out-of-line PERFORM 
statement. When procedure-name-1 is not specified, 
the PERFORM statement is referred to as an in-line 
PERFORM statement. 

See section 8, Memory Management, for information 
about PERFORM statements In segmented programs. 



Nested PERFORM Statements 

When a sequence of statements within a PERFORM 
procedure includes another PERFORM statement, the 
sequence of procedures associated with the included 
PERFORM must either be totally included in, or 
totally excluded from, the sequence referred to by 
the first PERFORM. Thus, an active PERFORM whose 
execution begins within the range of another active 
PERFORM must not allow control to pass to or beyond 
the exit of the other active PERFORM statement; 
furthermore, two or more such active PERFORM 
statements cannot have a common exit. 



All PERFORM Formats 

All literals must be numeric literals. All 
identifiers must be elementary numeric data items 
described in the Data Division. Procedure-name-1 
and procedure-name-2 can be paragraph-names or 
section-names . 



Format 2 PERFORM 

Format 2 PERFORM executes the specified set of 
statements the nimiber of times indicated by the 
value of lnteger-1 or the data item referenced by 
identifier-1. If the value is zero or negative, 
the statements are not executed. Changes to 
ldentlfier-1 within the statements have no effect 
on the number of times statements are performed. 



Format 3 PERFORM 

Format 3 PERFORM executes the specified set of 
statements until the condition specified after 
keyword UNTIL is true. Condition-1 can be any 
conditional expression. The evaluation of the 
condition takes place at the beginning of, the 
PERFORM statement execution, if the witH',- TEST 
phrase is not specified. If the condition is true 
at the start of PERFORM execution, the statements 
are not executed. 

IC the WITH TEST AFTER phrase is specified, the 
evaluation of the condition takes place after the 
oxacution of the last statement of the specified 
set of statements. The statements are executed at 
least once, regardless of the Initial conditions. 

If llie WITH TEST BEFORE phrase is specif iod, the 
evaluation of the condition takes place at the 
beginning of the PERFORM statement execution. If 
the condition is true at the start of PERFORM 
execution, the statements are not executed. 



Format 4 PERFORM 

Format 4 PERFORM executes the specified set of 
statements while varying a data item or index-name 
until condltion-1 is true. During execution of the 
specified set of statements, any changes to the 
variables specified in the format are taken into 
consideration and affect the operation of the 
PERFORM statement. The evaluation of the condi- 
tions takes place at the beginning of the PERFORM 
statement execution. If the WITH TSST phrase' is not 
specified. If condltion-1 is true at the start of 
execution, the statements will not be executed. 



The THROUGH phrase establishes a range of procedures 
to be executed under PERFORM statement control. A 
consecutive sequence of operations is executed, 
beginning at procedure-name-1 and ending with the 
last statement in any procedure-name-2. Any number 
of procedures can appear contiguously between 
procedure-name-1 and procedure-name-2. At the end 
of the last statement in the range of procedures, 
control implicitly returns to the next executable 
statement following PERFORM. 

Within the procedures, GO TO and PERFORM statements 
can occur, but control should always be returned to 
within the procedures. When two or more logical 
paths exist to the return point, procedure-name-2 
can be the name of a paragraph consisting of the 
EXIT statement to which all paths lead. 



VARYING Phrase 

In format 4, the operands immediately following 
these keywords have the function: 

VARYING 

Item to be varied 
FROM 

Initial value of VARYING item 

BY 

Increment or decrement to VARYING item; 
must not be zero 
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AFTER Phrase 

AFTER allows varying more than one variable. The 
variable Is used In the executions associated with 
condition-1. For two or more identifiers to be 
varied, the last identifier goes through a complete 
cycle each time the preceding identifier is 
incremented or decremented. Details of the 
execution of PERFORM for one or two conditions are 
shown in the flowcharts of figure 5-23. 

When an index-name is specified in the VARYING or 
AFTER phrase, the FROM phrase must specify a 
positive integer, and the BY phrase must specify a 
nonzero integer. The index-name is initialized as 
described with the SET statement and subsequently 
incremented or decremented as shown in figure 5-23. 



WITH TEST Phrase 

If the WITH TEST AFTER phrase is specified, the 
evaluation of the condition takes place after the 
execution of the last statement of the specified 
set of statements. The statements are executed at 
least once, regardless of the Initial conditions. 
Incrementing of the controlling variables occurs 
after the test. 

If the WITH TEST BEFORE phrase is specified, the 
evaluation of the condition takes place at the 
beginning of the FEBFOBM statement execution. If 
the condition is true at the start of PERFORM 
execution, the statements are not executed. 



The values of identifiers at the completion of the 
PERFORM operation depend on the specification of 
the WITH TEST phrase: 

If the WITH TEST AFTER phrase is specified, 
each identifier concalns the same value it 
contained at the end of the most recent 
execution of the specified set of statements. 

If the WITH TEST BEFORE Is specified or if the 
WITH TEST phrase is not specified, each data 
item varied by an AFTER phrase contains the 
current value of the data item referenced by 
the identifier in the associated FROM phrase. 
The data item referenced by identifler-1 has a 
value that exceeds its last used setting by one 
increment or decrement value. If condition-1 
Is true when the PERFORM statement is entered, 
however, the value is that of the data item 
referenced by identlfler-2. 



PURGE STATEMENT 

The PURGE statement causes MCS to delete partial 
messages that are to be transmitted to specified 
destinations. This statement is only allowed under 
the NOS operating system. See section 14, Message 
Control System. 



READ STATEMENT 

The READ statement makes a record available In the 
record area associated with the file specified. 



ENTRANCE 



ENTRANCE 



Set identifier-1 equal to 
current FROM value 



Set identifier-1 and identifler-4 
to current FROM values 



■i Condrtion-1 V 



True 



-»- Exit 



True 



i False 



Execute specified 
set of statements 



Augment identifier-1 with 
current BY value 



a. The VARYING Option with 
One Condition 







^ ( Condition-1 j 






— »- Exit 




' 


False 








.r 


tion-2 1 


rrue 








*i Condi 








False 




' 






Execute specified 
set of statements 




Set identifier-4 to its 
current FROM value 
















Augment identifier-4 with 
current BY value 




Augment identifier-1 with 
current BY value 















b. The VARYING Option with 
Two Conditions 



Figure 5-23. Format 4 PERFORM Flowchart 
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Both the file organization and the access mode 
determine which format of the READ statement is 
appropriate and which record is returned. 

Format 1 must be used for all files in 

sequential access mode, and for any file In 

dynamic access mode when a record is to be 
accessed sequentially by position. 

Format 2 must be used for all files in random 
access mode , and for any file in dynamic access 
mode when a record is to be accessed randomly 
by key. 

Format 3 and format 4 are used to access data 
base records that arc joined together in a 
relation. See section Ifi, Subsi-lii-raa Fac-ility. 

Format 1 and format 2 of the READ statement are 
shown in figure 5-24. 



Format 1 

READ file-name [NEXT ] RECORD [ INTO identifier] 
[; AT END imperative-statement] 

Format 2 

READ file-name RECORD [ INTO identifier] 
[; KEY IS data-name] 
[; INVALID KEY imperative-statement] 



Figure 5-24. READ Statement Format 1 and Format 2 

The file must be open for INPUT or I-O. Any access 
mode is allowed. Execution of READ updates any 
FILE STATUS data item defined for the file. 

File-name must be the name of a file described with 
an FD entry in the File Section. It can be a file 
described in a subschema. READ, must not be used 
with files described by SD entries or files 
described by an FD entry with a REPORT clause. 

When the records of a file are described with more 
than one Record Description entry, these records 
automatically share the same storage area. The 
contents of any data items that lie beyond the 
range of the current data record are undefined. 



Format 1 READ 

Format 1 retrieves the next record in the file 
identified by file-name. The NEXT phrase is 
required when the file Is open in the dynamic 
access mode. The next record is affected by the 
file organization: 

For relative files, the next existing record is 
retrieved. If the RELATIVE KEY clause Is 
specified in the File-Control entry for the 
file, the key of the record read is returned to 
the key item. 



For indexed files, the next record with the 
same key of reference is retrieved. The key of 
reference is established by an OPEN statement 
or by the value of the data-name item specified 
with either a START statement or the preceding 
format 2 READ statement. The final record 
occurrence for a particular value of the key of 
reference can be detected by checking for a 
value of 00 in the FILE STALL'S data item. When | 
the primary key is the key of reference and it 
Ls not embedded in the record, the data item 
referenced in the RECORD KEY clause is updated 
to contain the key value. Wtien an alternate 
record key is the key of reference and dupli- 
cate alternate key values exist, the order in 
which records are retrieved is determined by 
the DUPLICATES phrase of the ALTERNATE RECORD 
KEY clause: 



If the keyword ASCENDING appcirs, records 
are retrieved in ascending primary key 
order. The ASCENDING option must be 
spec LL' led if t lie ,il ternate key is within a 
repealing group (T type records) and tlie 
tile organization is thf extended AAM 
forma l . 

If the keyword ASCENDING is omitted, 
records are retrieved in the order in which 
they were written or rewritten. 

For (Jirt'i't filos, lonsideratlnns are the same 
mi for inde}Ced files. 

Fur actual-key files, considerations are the 
same as for indexed files. 

For uord-address tiles, groups of words of the 
length of the Record Description entry, 
including evaluation ot any DEPENDING OH 
phr.isf, .iro ri'trieved. Valid data may or may 
not I'Xist; nu indication of invalid data is 
>;iven. The progr.un is responsible for deter- 
niining the validity of .iny d.ita read, since the 
KKAD itnteraent .-imply tran.<!fers words from the 
curri-nl '"!..>.■ ijosilion. 

For sequential files, the next record is read. 
If the end of a tape reel is encountered during 
an operation, standard operating system 
procedures occur for swapping reels. The 
program does not process the reel swap. 



NEXT Phrase 



The NEXT phrase must be used for files open in 
dynamic access mode when records are to be retrieved 
sequentially. Processing is as described above. 
Otherwise, NEXT is documentary only. 



INTO Phrase 



The INTO phrase moves the record being read from 
the record area associated with file-name to the 
area specified by identifier. The record is 
available in both areas after READ execution. Any 
subscripting or indexing associated with Identifier 
is evaluated after the record has been read and 
immediately before the record is moved to 
identifier. 
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The phrase can be used when the FD entry for the 
file Is followed by one or more Record Description 
entries that specify a fixed length :^X-i'M§^$§^^$> 
;;]^^^B record. When more than one Record Deicrlp- 
t'ion entry exists for the file, however, the phrase 
cannot be used if any elementary level 01 record 
defines a numeric or numeric edited item. 

The storage area associated with identifier and the 
record area associated with file-name must not be 
the same storage area. Identifier is filled with 
blanks if the size of the record is less than the 
size of identifier, unless the move is defined as 
an elementary numeric operation. 



AT BSD Phrase 

The AT END phrase specifies the imperative- 
statement to be executed when an at-end condition 
occurs. The condition occurs when: 

A file referenced in an OPEN statement by an 
OPTIONAL phrase Is not present when the first 
READ statement is executed. 



For relative files, the data-name of the 
RELATIVE KEY clause defines the key Item. The 
value in the key item determines the record to 
be retrieved. 

For word-address files, the data-name of the 
WORD-ADDRESS KEY clause defines the key Item. 
The value in the key item determines the record 
to be retrieved. 

For Indexed, direct, and actual-key files, the 
data-name of the RECORD KEY clause defines the 
primary key. The data-names of one or more 
ALTERNATE RECORD KEY clauses define alternate 
record keys. Records are read by primary key 
unless the KEY IS phrase of the READ statement 
specifies read by an alternate record key 
value. The key item identified by the presence 
or absence of the KEY IS phrase specifies the 
key of reference. The value of the key of 
reference determines the record to be retrieved. 
If no record in the file has the same value as 
the key of reference, an invalid key condition 
exists and the key of reference is undefined. 



No next record exists. 

An attempt is made to read past the last word 
written to a word-address file. 

A partition boundary (such as that written when 
a CLOSE statement is executed) is encountered, 
even though additional records might exist In 
the file. 

The program is responsible for subsequent actions 
if file access is to continue. 

Sequential files must be closed and successfully 
reopened. 

Files with other organizations must be 

repositioned according to the subsequent 

processing desired, by using one of these 
statements : 



INVALID KEY Phrase 

The INVALID KEY phrase specifies the imperative- 
statement to be executed when an invalid key 
condition occurs. The condition exists when: 

An attempt Is made to read past the last word 
of a word-address file. 

A key value of a relative file does not 
correspond to the value of a record in the file. 

An existing record does not have the valtie 
specified by the key of reference for an 
indexed, direct, or actual-key file. 

When the phrase is omitted, strict ANSI usage 
requires an appropriate format 1 USE statement for 
the file. See the FILE STATUS clause of the 
FILE-CONTROL paragraph In section 3. 



CLOSE followed by a successful OPEN 

START 

Format 2 READ 



INTO Phrase 



The INTO phrase is the same as for format 1 READ. 



When the phrase Is omitted, any applicable format 1 
USE statement executes, as described with the FILE 
STATUS clause of the FILE-CONTROL paragraph in 
section 3. 



Format 2 READ 

Format 2 retrieves from file-name the record 
Indicated by the value of a key. It is valid for 
all organizations except sequential when the file 
is open in the random or dynamic access mode. 
Format 2 also establishes the key of reference for 
Indexed, direct, and actual-key files that are 
subsequently to be read through a format 1 HEAD 
statement . 

The key item that governs the read is defined in 
the File-Control entry of the Environment Division. 
The key item depends on the file organization: 



KEY IS Phrase 

The KEY IS phrase establishes the key of reference 
for the READ. It is valid only for Indexed, 
direct, and actual-key files. When the phrase is 
omitted, the key of reference is the primary key. 

The phrase can specify either of the following as 
the key of reference: 

Data-name of the RECORD KEY clause 

Data-name of any ALTERNATE RECORD KEY clause 

An alternate record key reference cannot be 
subscripted or indexed; however, the alternate 
record key item can be described with the OCCURS 
clause. In this case, the alternate record key is 
within a repeating group. The first key Item In 
the repeating group In the record area is used for 
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compiirlsun purposes. Tlie aiteruato kuy value in 
the record retrieved can be iiny occurrence of llirt 
repeating group. 



RECEIVE STATEMENT 

The RECEIVE statement causes a message, a message 
segment, or a portion of a message or message 
segment to be returned from a specified MCS queue. 
See section 14, Message Control System. 



RELEASE STATEMENT 

The RELEASE statement transfers records to the 
initial phase of a SORT operation. See section 7, 
Sort/Merge Facility. 



For a file open in the random or dynamic mode , the 
replacing record is identified by the value of the 
data item specified by the RELATIVE KEY or the 
RECORD KEY clause for the file associated with 
record-name. The value must be the same as a 
record existing in the file. The contents of any 
data Items defined by ALTERNATE RECORD KEY clauses 
can differ from those in the record being replaced; 
however, the values of alternate record keys must 
not duplicate existing alternate record key values 
in the file unless the DUPLICATES phrase was 
specified when the alternate record key was defined. 

For a file open in the sequential access mode, the 
last input-output statement preceding REWRITE must 
be a format 1 READ. REWRITE then replaces the 
record previously read. For an indexed, direct, or 
actual-key file, the primary key is used to 
identify the record to be replaced; it must be the 
same as the primary key value of the record just 
read . 



RETURN STATEMENT 

The RETURN statement obtains either sorted records 
from the final phase of a SORT operation or merged 
records from the final phase of a MERGE operation. 
See section 7, Sort/Merge Facility. 



FROM Phrase 

Execution of a JtEWRITE statement with the FROM 
phrase is equivalent to execution of : 

MOVE identifier TO record-name 



REWRITE record-name 



REWRITE STATEMENT 

The REWRITE statement (figure 5-25) replaces an 
existing record in a file on mass storage. The 
file can have any organization except word- 
address. •:l^f\:.^n/^{:^:- g).Siet:,''i«e<itlifA ,iti.',;i 'SBbscheata.i' 



REWRITE record-name [ FROM identifier] 
[; INVALID KEY imperative-statement] 



Figure 5-25. REWRITE Statement Format 

REWRITE releases the record specified by record- 
name. The record is no longer available in the 
record area unless the file is named in a SAME 
RECORD AREA clause. If so, the record is available 
to the program as a record of other files specified 
in that clause. 

The file must be open for I-O; any access mode is 
allowed. Both the access mode and the file 
organization affect the phrase that can be speci- 
fied and the results obtained. Execution of 
REWRITE updates any FILE STATUS data item defined 
for the file. 

Record-name, which can be qualified, must be a 
record named in a level 01 entry in the File 
Section of the Data Division. Record-name and 
Identifier must not refer to the same storage area. 

For sequential files, the record type for a record 
being rewritten must be either F (fixed length) or 
W (control word). The replacing record must have 
the same number of character positions as the 
record being replaced. For other file organiza- 
tions, the replacing record need not be the same 
size. 



Record-name and Identifier must not reference the 
same storage area. The contents of the record area 
prior to the execution of the implicit MOVE 
statement has no effect on REWRITE execution. 



INVALID KEY Phrase 

The INVALID KEY phrase can be used only for 
Indexed, direct, and actual-key files open In any 
access mode and for relative files open in random 
or dynamic access mode. The imperative-statement 
is executed when any of the following invalid key 
conditions exist: 

The file does not contain the record specified 
by the record key. 

The primary key has been changed between the 
READ and REWRITE for files open in the 
sequential access mode. 

The DUPLICATES condition for alternate record 
keys has been violated. 

When the invalid key condition exists, the updating 
operation does not take place and the data In the 
record area is not affected. 

When the phrase is omitted, strict ANSI usage 
requires an appropriate format 1 USE statement. 
See the FILE STATUS clause of the FILE-CONTROL 
paragraph in section 3. 



SEARCH STATEMENT 

The SEARCH statement (figure 5-26) searches a table 
for an element that satisfies the specified condi- 
tions and adjusts an index-name to point to that 
element. The type of search and the conditions on 
which the search ends depend on the format used. 
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Format 1 



SEARCH identifier-1 VARYING \ jdantif irr*^? ' \\ [; AT END imperative-statement-l] 



i imperative-statetnent-2 
; WHEN condition-1 ^ NEXT SENTENCE 



n^ 



WHEN condition-2 



( i mperative-statement-3 
( NEXT SENTENCE 



}]... 



Format 2 

SEARCH ALL identifier-1 [; AT END imperatlve-statement-1] 

( identifier-3 



\ data-name-1 < IS EQUAL TO S < literal-2 
: WHEN \ (iS^ I (arithmetic-expression 



, condition-name-1 



data-name-2 



AND 



IS EQUAL TO 
IS = 



I identifier-4 

I literal-3 

( arithmetic-expression 



-'I 



condition-name-2 



( imperative-statement-2 \ ..x^^jwE*-™ f 6«iat' 
\ NEXT SENTENCE ( -it ^SMf^mf 



Figure 5-26. SEARCH Statement Format 



Format 1 is a sequential search that stops when 
any specified condition Is satisfied. 

Format 2 Is a binary search that stops only 
when all specified conditions are satisfied. 

The table to be searched is specified by 
identif ler-1 . The table must be described by an 
OCCURS clause containing an INDEXED BY phrase that 
defines index-names. Identifier-1 must not be 
Indexed, reference modified, or subscripted in the 
SEARCH statement. 

Only one dimension of a multldlmensloned table is 
searched during SEARCH statement execution. (If 
identifier-1 is a data item subordinate to a data 
item containing an OCCURS clause, the table has 
more than one dimension.) A SEARCH statement must 
be repeated to search a second dimension. SET 
statement execution can adjust index-names to 
values appropriate for different dimensions. 

The Inclusion of the END-SEARCH explicit scope 
terminator makes the SEARCH statement into an 
Imperative (rather than conditional) statement <ind 
facilitates the nesting of SEARCH statements. 



Format T SEARCH 

Format 1 is a sequential search that begins at the 
current value of the search index-name and that 
ends when one of the specified conditions is 
satisfied or the table ends. A SET statement often 
precedes the SEARCH statement to initialize the 



table index-name , even when another index-name is 
used for the search. The VARYING phrase estab- 
lishes the index-name to be used. The search takes 
place only if the value of the search index-name is 
within the limits of the table elements. 

The search operates by evaluating the conditions in 
the order written, making use of the index settings 
to determine the occurrence of those items to be 
tested. The process repeats, as necessary, using 
an incremented index-name, until a condition is 
satisfied; the imperative-statement associated with 
the condition is then executed. 

At the conclusion of the search, the index-name 
used in the search is always set to the occurrence 
of the element in the table that satisfies the 
condition. If no condition is satisfied, index- 
name contains one more than the highest table 
element occurrence. 

If the entire table is searched and no condition is 
satisfied, control passes to any AT END imperative- 
statement or the next executable sentence. 



VARYING Phrase 

The VARYING phrase specifies which index-name of 
ldentlfler-1 is to be used in the search. It can 
also specify an item to be incremented each time 
the index-name associated with identifier-1 is 
incremented. When the phrase is omitted, the first 
index-name specified in the INDEXED BY phrase of 
the OCCURS clause for identif ler-1 is used in the 
search. 
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Index-name- 1 

When Index-name-l appears in the INDEXED BY 
phrase of the OCCURS clause for 
identif ler-1, index-name-l Is the item used 
for the search. 



When a data-name is referenced in a WHEN or AND 
phrase, each data-name referenced must be Indexed 
by the first index-name associated with identifiet-1 
along with other Indexes or literals as required, 
and must be referenced in the KEY IS phrase that 
describes identif ier-1. 



When lndex-name-1 appears as an index-name 
for a table other than identif ier-1, the 
occurrence number represented by index- 
name-l is incremented by the same amount as 
the occurrence number represented by the 
index-name associated with identif ier-1. 
Incrementing for both items takes place at 
the same time. 

Identif ier-2 

When identifier-2 is an index data item, it 
is incremented by the same amount as, and 
at the same time as, the index associated 
with identifier-1 is Incremented. 

When ldentifier-2 is not an index data 

item, it is incremented by 1 each time the 

index-name associated with identifier-1 is 
incremented. 

Identifier-2 must be described as USAGE IS 
INDEX or as an Integer data item; it must 
not be described with COMP-2. 



AT END Phrase 

The AT END phrase specifies the imperative- 
statement to be executed when: 



When either a data-name or a condition associated 
with data-name is referenced, all preceding 
data-names in the KEY IS phrase of identifier-1, or 
their associated condition-names, must also be 
referenced. 

Identifiers referenced in the WHEN phrase and 
identifiers specified in an arithmetic expression 
must not be referenced in the KEY IS phrase of 
Identif ier-1. Neither can they be indexed by the 
first index-name of identifier-1. 

The results of a format 2 SEARCH operation are 
predictable only when the data in the table is 
ordered in the same manner as described by the 
ASCENDING/DESCENDING KEY phrase of identifier-1 and 
the contents of the key referenced in the WHEN 
phrase are sufficient to Identify a unique table 
element. At the end of a successful search, the 
index-name indicates an occurrence that allows all 
conditions to be satisfied. Control then passes to 
the imperative-statement associated with the 
specified conditions. 

If the binary search of the table cannot satisfy 
all conditions, control passes to any AT END 
imperative-statement or to the next executable 
sentence. The final setting of the index is not 
predictable for an unsuccessful search. 



The index-name value is outside the table 
limits at the start of the search. 

No condition is satisfied during the search. 

When the phrase is omitted, control passes to the 
next executable sentence if either of these 
instances occurs. 

Figure 5-27 shows the flow of control when three 
conditions are specified. 



SEND STATEMENT 

The SEND statement causes a message, message 
segment, or a portion of a message or message 
segment to be released to one or more specified 
destinations maintained by MCS. See section 14, 
Message Control System. 



Format 2 SEARCH 

Format 2 SEARCH is a binary search for a table 
element that satisfies one or more conditions. A 
successful search ends when all specified condi- 
tions are satisfied by a table element. The search 
is unsuccessful if a table element that satisfies 
the conditions cannot be found. Format 2 should be 
used in preference to format 1 when the table to be 
searched is large. 

Identifier-1 must be described with the KEY IS 
phrase of the OCCURS clause as well as by the 
INDEXED BY phrase. The data-names in the KEY IS 
phrase are used in the WHEN and AND phrases of 
SEARCH to establish the conditions on which the 
search is successful. 

When a condition-name is referenced in a WHEN or 
AND phrase, the condition-name must have only a 
single value. The data-name associated with 
condition-name must appear in the KEY IS phrase 
that describes identifier-1. Data-names can be 
qualified. 



SET STATEMENT 

The SET statement (figure 5-28) performs several 
different functions, depending on the format used: 

Format 1 sets one or more index-names (defined 
by INDEXED BY phrase of OCCURS clause), index 
data items, or elementary integer data items to 
the number of a table element. 

Format 2 increases or decreases the value of 
one or more index-names. 

Format 3 establishes n oll'iUng icquencu or 
chararter rode "iet. 

Foimdt 4 allLTri switch settings. 

FoimaL 'i alters the v.ilue ol conditional 
v.-ir Lables. 

In format 1 and format 2 of the SET statement, 
sending and receiving operands that overlap cause 
undefined results. 
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\^ START ^ 

Index setting: ^ 
highest permissible 
occurrence number 



( condition-1 } 



False 



( condition-2 1- 



False 



Increment 
index-name for 

identifier-1 
(index-name-1 
if applicable). 



Increment 

index-name-1 (for 

a different table) 

or identifier-2 



> AT END • 



imperative- 
statement-1 



True 



imperative- 
statement-2 



True 



imperative- 
statement-3 



* These operations are options included only when specified in the SEARCH statement. 

** Each of these control transfers Is to the next executable sentence unless the imperative-statement ends 
with a GO TO statement. 



Figure 5-27. Flowchart of SEARCH Operations 



Format 1 SET 

Format 1 sets each operand specified after the 
keyword SET, In turn, to the value of the operand 
specified after the keyword TO. Operands that can 
be specified as the sending and receiving items are 
shown in table 5-5. 

Before format 1 - execution , . the value of any 
lndex-name-3 must correspond to an occurrence 
number of an element in the table in which index- 
name-3 is defined by the INDEXED BY phrase of the 
OCCURS clause. After execution, the value of any 
index-name-l must show the same correspondence to 
an element In its associated table. 

Integer-1, which can be signed, must have a value 
greater than 0. 



TABLE 5-5. ALLOWED FORMAT 1 AND FORMAT 2 
SET STATEMENT OPERATIONS 



Sending Item 


Receiving Item 


Integer Data 


Index- 


Index Data 




Item 


Name 


Item 


Integer literal 


No 


Yes 


No 


Integer data item 


No 


Yes 


No 


Index-name 


Yes 


Yes 


Yes 


Index data item 


No 


Yes 


Yes 
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Format 1 



Format 2 



Format 3 



SET 



index-name-1 [, index-name-2] 
identifier-1 [, identifier-2] . . . 



\ ( index-na 

> TO < identifier 
) ( integer-1 



-name-3 
identifier-3 



CTT .. . , ., .= , /UP BY W identifier-4 ) 

SET index-name-4 [, index-name-5] . . . -| ppyyiyi BY ) ( integer-2 f 



SET ( ( 



SORT 
MERGE 
SORT-MERGE 
PROGRAM 



COLLATING SEQUENCE 



TO alphabet-name 



CODE SET FOR i file-name-1 I, file-name-2| 
( ALL FILES 



... I 



Format 4 



Format 5 



SET .' mnemonic-name-1 [, mnGmomc:-name-2] . 



™ { OFF } [ 



SET condition-name TO TRUE 



Figure 5-28. SET Statement Format 



The value of the index associated with an 
index-name after the execution of a SEARCH or 
PERFORM statement might be undefined. If a SEARCH 
with the ALL phrase results in execution of the AT 
END imperative-statement , the associated index is 
undefined. At the end of a PERFORM sequence with 
the VARYING and UNTIL phrases, the index-name might 
be undefined if the condition specified with UNTIL 
does not involve the index or its table. 



Each Identifier 
subscripting or 
value is changed. 



following SET is evaluated for 
indexing immediately before its 



Format 2 SET 

Format 2 increments (UP BY) or decrements (DOWN BY) 
the value of each index-name specified. Integer-2 
can be signed; identifier-4 must be an elementary 
numeric integer item. The value of the index-names 
must correspond to an occurrence number of an 
element in their associated tables before and after 
SET execution. Otherwise, format 2 processing is 
as described for format 1, with table 5-5 above 
specifying the valid operand items. 



Format 3 SET 

Format 3 phr.-iscs establish a collating sequence or 
code set. Alphabet-name must be speciflpd in nil 
ALPHABET clause of th*- SPECIAL-NAH£S paragrjpii in 
the Environment Division. Phrases result in thi' 
following : 



SORT or MERGE COLLATING SEQUENCE 
SORT-MERGE COLLATING SEQUENCE 

Alphabet -name is the coll.ati.ng sequence 
uSL'd for subsequent sort or merge 
operations. 

PROGRAM COLLATING SEQUENCE 

Alphabet-name Is thi' program collating 
sequence used tor subsequent nonnumeric 
compariKons. It is also used for subse- 
quent sort or merge operations unless a 
Coliowing SET statement !>pecitles .=. 
different collating sequence for sort 
and/or merge. 

C0D15-SET FOR 

Alphabet-name is the code set for files on 
tapes in UNiVAC UOO series FLELDATA 
format. The phrase is not valid for other 
data formats. The alphabet specified is 
used during execution of READ, REWRITE, and 
WKIl'E statements; it iij not used during 
OPEN or CLOSE since the phrase does not 
take effect until after the file is 
opened. The file-names specified should be 
FIKLDATA format tape fiLus. in the 
SPECIAL-NAMES paragraph, alphabet-tuime must 
be associated with UNI. 



This phrase is an alternative Lo 
CODE-SET cjau.'ie of thi' FD entry. 



ttlE 
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FQrmat 4 SET 

Format 4 sets mnemonic-name to ON or OFF. Switches 
remain set until they are changed by another SET 
statement, by operator action at any time, by the 
terminal user during a program pause (a STOP 
literal statement), or by a StflTCH control state- 
ment between Job steps. The switch mnemonic-names 
must be defined In the SPECIAL-NAMES paragraph with 
a SWITCH-n IS mnemonic-name clause. 

Switches 1 through 6 can be set Initially by 
control statement or operator action prior to the 
current job step. Any of the switches 1 through 6 
set within the program affects subsequent Job 
steps. Switches 7 through 126 do not affect any 
other job steps. 



Format 5 SET 

Format 5 sets a condition variable to a value that 
causes condition-name to be true. Condition-name 
must be associated with a conditional variable. 
The literal in the VALUE clause associated with 
condition-name is moved to the condltiona] variable 
in accordance with the rules for elementary moves. 
If more than one literal is specified in the VALUE 
clause, the first literal in the VALUE clause is 
moved. 



Execution of the START statement establishes the 
key of reference either as the primary key or an 
alternate key, by positioning the index file to the 
first alternate key value that meets the specified 
condition. The search begins either from the 
current key of reference or from the beginning of 
the Index file if the key of reference has not yet 
been established. The key that satisfies the 
condition becomes the new key of reference. If the 
comparison is not satisfied by any alternate key 
value, the INVALID KEY clause is executed. 

Successful execution of READ INVALID KEY or START 
establishes a key of reference for purposes of 
future access to the file. The key of reference is 
the primary or alternate key of the record read or 
located. Once the key of reference has been 
established, it can only be changed by execution of 
another START, READ, or OPEN statement, or by 
execution of the INVALID KEY phrase. 

Execution of START updates any FILE STATUS data 
item defined for the file. It establishes the 
current position of the file associated with 
file-name as the beginning of the first record with 
a key satisfying the comparison. 

For indexed, direct, and actual-key files, the key 
of reference for subsequent format 1 READ state- 
ments is established by the START statement. The 
key of reference is determined by the KEY phrase: 



SORT STATEMENT 

The SORT statement sorts records. 
Sort/Merge Facility. 



See section 7, 



START STATEMENT 

The format 1 START statement (figure 5-29) 
positions a relative, Indexed, direct, or actual- 
key file for subsequent sequential retrieval of 
records. The file must be open in the INPUT or I-O 
mode; access mode must be sequential or dynamic. 

The format 2 START statement Is used for files 
described In a subschema. See section 16, Sub- 
schema Vncillty. 



If the KEY phrase is omitted, the key of 
reference is the primary key. (However, the 
phrase cannot be omitted for direct and 
actual-key file organizations.) 

If the KEY phrase specifies a primary key, the 
key of reference is that primary key. (How- 
ever, the primary key can be specified for 
indexed file organizations only.) 

If the KEY phrase specifies an alternate record 
key, the key of reference is that alternate 
record key. 

If the KEY phrase specifies a leading portion 
of a primary key or alternate record key, the 
key of reference is the primary key or alter- 
nate record key corresponding to the leading 
portion. 



Format 1 



START file-name 



KEY 



IS EQUAL TO 




IS GREATER THAN 



IS ^ 

IS NOT LESS THAN 



data -name 



IS NOT < 



[; INVALID KEY impsratlve-statement] 



Figure 5-29. START Statement Format 1 
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KEY Phrase 

The KEY phrase specifies the data Item to be 
compared with keys of records existing in the 
file. Data-name can be qualified. When the phrase 
is omitted, the relational operator defaults to 
KQUAL and data-name defaults to the data item 
described by the RELATIVE KEY or RECORD KEY clause 
appropriate for the file organization. However, 
the phrase cannot be omitted for direct and 
acLual-key Cllu organizations. If tho KEY phrase 
specifies an alternatt key Ih'it. is within a 
repeating f>roup, indexing or subscrLpLing must not 
be used. The value to bu used for comparison is in 
the first occurrence of tho repe:.iLing group in Lhi; 
record area. The matching valw: can be in any 
occurrence of the repeating group In the record on 
the file. 

The type of comparison is specified by the 
relational operator in the KEY phrase. When the 
key is alphanimieric and the operands are of unequal 
size, comparison proceeds as though the longer one 
were truncated on the right such that its length is 
equal to that of the shorter operand. All other 
numeric or nonnumeric comparison rules apply. 
Nonnumeric comparisons are made with respect to the 
program collating sequence that was in effect when 
the file was first opened for output. 

The KEY phrase can specify one of three conditions, 
each of which can be stated in alternative words: 

IS EQUAL TO or EQUALS i>r TS = 

IS GREATER THAN ..or EXCEEDS or IS > 

IS NOT LESS THAN or IS NOT < 



The particular data-name that can be used depends 
on the file organization declared in the SELECT 
clause of the FILE-CONTROL paragraph in the 
Environment Division. 

For relative files , data-name must specify the 
data item defined by the RELATIVE KEY clause. 

For direct and actual -key files, data-name 
cannot specify the RECORD KEY data item (that 
is, the primary key). Data-name must be an 
alternate record key or the leading portion of 
an alternate record key. 

For indexed, direct, and actual-key files, 
data-name can specify the data item defined by: 

The ALTERNATE RECORD KEY clause. If 
data-name appears in an entry that contains 
an OCCURS clause or is subordinate to an 
OCCURS clause , data-name cannot be sub- 
scripted or indexed; the first occurence is 
always implied. 

A category alphanumeric data item 
subordinate to the ALTERNATE RECORD KEY 
data item whose leftmost character position 
corresponds to the leftmost character 
position of the ALTERNATE RECORD KEY data 
item. If two ALTERNATE RECORD KEY data 
items are defined as starting in the same 
character position, no item subordinate to 
them can be specified. 



For indexed files, data-name can also specify a 
data item defined by: 

The RECORD KEY clause (that is, the primary 
key). 

A category alphanumeric data item 
subordinate to the RECORD KEY data item 
whose leftmost character position corre- 
sponds to the leftmost character position 
of the RECORD KEY data item. 



INVALID KEY Phrase 

The INVALID KEY phrase specifies the imperative- 
statement that is executed if the comparison is not 
satisfied by any record in the file. In this 
instance, the key of reference is undefined. 



STOP STATEMENT 

The STOP statement (figure 5-30) temporarily 
permanently suspends program execution. 




Figure 5-30. STOP Statement Format 

STOP RUN permanently stops the program and 
returns control to the operating system. In 
MCS under NOS, execution of a STOP RUN state- 
ment purges any portion of a message trans- 
ferred from the COBOL program through a SEND 
statement, but not terminated by EGI or EMI (no 
portion of the message is sent) . The STOP RUN 
statement also purges any portion of a message 
partially obtained through a RECEIVE statement. 

STOP literal puts the program in a PAUSE state , 
with execution resuming at operator command. 



STOP RUN Statement 

STOP RUN is the normal way to terminate a program. 
End-of-program processing, including the close of 
any open files, occurs when the statement is 
executed. If any files are left open, except those 
opened by ACCEPT or DISPLAY, an attempt is made to 
close the files. If a file can be closed, the 
message FILE Ifn NOT CLOSED AT STOP RUN OR CANCEL - 
CLOSED BY COBOL is given and the file is closed as 
if CLOSE file-name had been issued. If the file 
cannot be closed for any of the following reasons, 
then the message FILE Ifn NOT CLOSED AT STOP RUN 
AND CANNOT BE CLOSED is given and the file is left 
open (buffer might not be cleared) : 

Valid FIT cannot be located, because the file 
was opened by an overlay that is no longer 
loaded or by a subprogram that was cancelled. 

Close routine not available because of one of 
the above reasons for not locating a valid FIT, 
or because the file was opened in an overlay or 
dynamic subprogram that does not contain the 
STOP RUN statement. 
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STOP Literal 

STOP literal displays the literal for operator 
action. If the program is executing as part of a 
batch job, the literal is displayed at the central 
site operator console. If the program is executing 
as a result of an interactive terminal command, the 
literal is displayed at the terminal. In both 
instances, the program does not resume execution 
until the operator takes an appropriate action. 



Th" literal can be an unsigned integer, .iaayiiS.OieB:- 
nura.Tir literal, or a nonnumeric literal. As many 
as 60 characters can be displayed; excess charac- 
ters are truncated on thfe right. A figurative 
constant appears as a single character. The 
following characters display as blanks at the 
central site: $ % > ; ^ < V ]. 

The message received by the operator is: 

PAUSEAAAAAAAAliteral 



For the central site operator, the first 27 
characters of the literal appear on the PAUSE line; 
any remaining characters appear on a second line. 

The central site operator can respond with any of 
the commands available to the operator. Program 
execution does not resume, however, until a GO 
command is entered. 

The terminal operator can enter any message. The 
message is ignored and program execution continues. 

If the RERUN ON condition-name phrase was specified 
in the I-0-CONTROL paragraph, the switch status is 
tested after returning from the pause. 



STRING STATEMENT 

The STRING statement (figure 5-31) juxtaposes the 
partial or complete contents of two or more data 
items into a single data item. Transfer of 
characters to the receiving item occurs as 
described with the MOVE statement for elementary 
alphanumeric-to-alphanumeric moves without space 
fill. When a sending item and a receiving item 
share a part of their storage areas, the results 
are unpredictable. 

NOTE 

Refer to appendix F for recommendations on 
the use of the STRING statement. 



The sending items immediately precede the keywords 
DELIMITED BY. Literal sending items must be 
nonnumeric literals or figurative constants without 
ALL; identifier sending items must contain data 
with a USAGE of DISPLAY. Figurative constants are 
implicit one-character items. 

The receiving item ia Identif ier-7. It must be 
described as USAGE LS DISPLAY and cannot have a 
RIGHT JUSTIFIED clause associated with it. 
Identifler-7 can be a group item or an elementary 
data item without editing symbols. The STRING 
statement does not initialize or till identif ier-7; 
any character position that does not receive a 
sending character is not affected by statement 
execution. 

None of the identifiers can reference boolean data 
items. Identif ier-7 cannot be reference modified. 

The number of characters moved from the sending 
items depends on the DELIMITED BY phrase. SIZE 
specifies each preceding sending item is to be 
transferred in its entirety. Literal-3 or the 
contents of identif ier-3 within a sending item 
stops the transfer. The delimiting literal must be 
nonnumeric and can be a figurative constant without 
ALL. Identif ier-3 must be described with USAGE IS 
DISPLAY. A figurative constant is an implicit 
one-character item. 

Transfer of characters to the receiving item begins 
at the leftmost character of the first sending item 
and stops when the character string specified by 
DELIMITED BY occurs or the item ends. The 
delimiting character string is not transferred. 

Transfer resumes from the leftmost character of the 
second and subsequent sending items, with transfer 
stopping when the delimiter is encountered or the 
item ends. Transfer from all sending items stops 
when the receiving item is filled or all sending 
items are exhausted. 



POINTER Phrase 

The POINTER phrase specifies the character position 
within the receiving item at which the transfer is 
to begin. If the phrase is omitted, transfer is to 
the leftmost position in the item, character one. 
Each time a character is transferred to the 
receiving item, the item associated with POINTER is 
incremented by one. Consequently, identif ier-8 
must be an elementary integer item of sufficient 
size to contain a value equal to the size of the 
receiving item, plus one. The initial value of 
identif ier-8, which must be set by the program, 
must not be less than one. 



i identif ier-1 \ f, it 

SIRING \literal-1 T [! li 

( ldentlfier-4 ) f , Ic 

\ literal-4 f [ , II 



ldentlfler-2 
llteral-2 



]... 



ldentlfler-5 
literal -5 



identifier-3 
DELIMITED BY ^ literal-3 
SIZE 



] ..■ 



/ identifier-3 ^ 
} literal-3 > 
(SIZE ) 

I identifier-6 ) 
< literal-6 > 
( SIZE ) 



identifier-6 
DELIMITED BY < literal-6 
SIZE 



INTO identifier-7 [WITH POINTER identifier-8] [; ON OVERFLOW imperative-statement] 



Figure 5-31. STRING Statement Format 
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At the end of STRING execution, identifler-8 will 
have been incremented by the number of characters 
transferred to the receiving item. Only the 
portion of the receiving item that was referenced 
during transfer is changed. All other portions of 
the receiving item remain as they were before 
STRING was executed. 



ON OVERFLOW Phrase 

The ON OVERFLOW phrase specifies the imperative- 
statement that is executed if the receiving. item is 
filled before the sending items are exhausted. The 
imperative-statement is also executed if the 
POINTER Item value is less than one or greater than 
the number of characters in the receiving item. In 
the absence of the phrase, control passes to the 
next executable statement when an overflow 
condition exists. 



The composite size of identifiers and/or literals 
is limited to 18 digits. The composite size is 
determined by superimposing data items on their 
respective decimal points in a hypothetical data 
item. The items used in composite size 
determination depend on the format of SUBTRACT: 

Format 1 uses all identifiers and/or literals 
specified. 

Format 2 uses all operands, but not the 
identifiers into which the result is stored. 

Format 3 uses separately each pair of 
corresponding data items. 

The ROUNDED phrase, the SIZE ERROR phrase, and the 
CORRESPONDING phrase are the same as discussed with 
the ADD statement. Additional information about 
arithmetic operations is in section 1. 



SUBTRACT STATEMENT 

The SUBTRACT statement (figure 5-32) subtracts 
elementary numeric data items and sets the result 
in a specified data item. The data item that 
receives the result depends on the format used: 

Format 1 stores the result in one of the 
operand identifiers. 

Format 2 stores the result in an identifier 
other than one of the operands. 

Format 3 subtracts corresponding items. 

All literals and the contents of all identifiers 
appearing before the keyword FROM are operands. 
All operands must be numeric category items. 



Format 1 SUBTRACT 

Format 1 SUBTRACT occurs as follows: The values of 
the operands are first added; their sum is then 
subtracted from the current value of identif ier-m. 
The result is stored in identif ier-m. If 
identif ier-n is specified, the sum of the operands 
is subtracted from, and the result stored in, each 
identif ier-n specified. All format 1 identifiers 
must be elementary numeric items. 



Format 2 SUBTRACT 

Format 2 SUBTRACT occurs as follows: The values of 
the operands are first added; their sum is then 
subtracted from the current value of identifier-m 
or literal-m. The result is stored in each 



Format 1 

o.,r,,r,.«, /''*eral-1 1 f, literal-2 1 

SUBTRACT j identif ier-1 / [, identif ier-2 J ■ ■ FROM identifier-m [ROUNDED] 

[, identifier-n [ ROUNDED ] J . . . [; ON SIZE ERROR imperative-statement] 



Format 2 



■-r,^.. / literal-m ) 
EBOM.) identifier-m; 



_,,___._ Miteral-1 \ r,literal-2 1 
SUBTRACT I identlfier-1 / [ , identif ier-2 J 

GIVING identifier-n [ ROUNDED ] f, identif ier-o [ ROUNDED ] ] . . 



[; ON SIZE ERROR imperative-statement] 



Format 3 



o,,.,-r„.^-r ( CORRESPONDING ! 

SUBTRACT I cORR / identifier-1 FROM identifier-2 [ ROUNDED ] 

[, identifier-3 [ ROUNDED ]] ... [; ON SIZE ERROR imperative-statement] 



Figure 5-32. SUBTRACT Statement Format 



5-36 



60497100 J 



identlfier-n. If identifier-o is specified, the 
result is stored in each identifier-o specified. 
Result Identifiers specified after the keyword 
GIVING can be elementary numeric or elementary 
numeric edited items. 



Format 3 SUBTRACT 

Format 3 SUBTRACT subtracts the contents of items 
in identifier-1 from, and stores the results in, 
corresponding items in identif ier-2. If 
ldenLlfier-3 Is spi.cified, corresponding data items 
in identifier-! »nd in each ldentifier-3 specified 
are treated accordingly. All identifiers in a 
format -3 SUBTRACT must be group items. Identifiers 
must not be reference modified. 

Data items described by (or subordinate to items 
described by) a REDEFINES clause or an OCCURS 
clause are Ignored during subtraction of corre- 
sponding items. The sending or receiving group 
item cannot contain any data item described with a 
RENAMES clause or a USAGE IS INDEX clause. 



SUPPRESS STATEMENT 

The SUPPRESS statement inhibits presentation of a 
report group. See section 6, Report Writer 
Facility. 



NOTE 

Etefer to appendix F for recommendations on 
the use of the UNSTRING statement. 

The sending item, identifier-1, must be an 
elementary category alphanumeric item or a group 
item and must not be reference modified. The 
receiving items, identif ier-4 and identif ier-7, 
must be USAGE IS DISPLAY elementary or group items 
and can be described in a PICTURE clause as: 
alphabetic without the symbol B, alphanumeric 
category, or numeric without the symbol P. If the 
symbol V is used in a numeric receiving item, it is 
ignored. If the symbol S is used, the transfer of 
characters occurs as for an alphanumeric move. 

Any subscripting or indexing associated with any 
identifier is evaluated only once, immediately 
before any data is transferred from or to the 
item. A level 88 item must not be specified in an 
UNSTRING statement. 



POINTER Phrase 

The POINTER phrase specifies the character position 
within the sending item at which transfer is 
to begin. The first character position is 
position 1. If the phrase is omitted, transfer 
begins with the leftmost character. Each time a 
character is transferred, the POINTER identif ier-10 
Item is incremented by one. The item, which must 
be an elementary numeric integer item, must have 
its initial value established by the program. 



TERMINATE STATEMENT 

The TERMINATE statement completes processing of 
specified reports. See section 6, Report Writer 
Facility. 



UNSTRING STATEMENT 

The UNSTRING statement (figure 5-33) separates 
contiguous data in a sending field into one or more 
receiving items. Transfer of characters to the 
receiving fields occurs as described for the MOVE 
statement. Depending on the phrases used in the 
statement, the entire sending item or parts of the 
sending item are transferred. During transfer, the 
system can tally the number of characters examined 
in the sending item. When a sending item and a 
receiving item share a part of their storage areas, 
the results are unpredictable. 



TALLYING Phrase 

The TALLYING phrase specifies an item to be 
incremented by one for each receiving item acted 
upon. Identifier-1 1 must be an elementary numeric 
integer item with an initial value established by 
the program. 



ON OVERFLOW Phrase 

The ON OVERFLOW phrase specifies an imperative- 
statement that executes when the receiving items 
are filled, taking account of any DELIMITED BY 
phrase before the end of the sending item is 
encountered or when the POINTER value is less than 
one or is greater than the size of the sending 
item. Control passes to the next executable 
sentence in the absence of the ON OVERFLOW phrase 
or at the successful completion of UNSTRING. 



UNSTRING identifier-1 

r , , ( identif ier-2 ) f „„,,,,, /identifier-Si] ] 

I DELIMITED BY [ALL] |iiteral-1 / [, QR [ALL] ||iteral-2 /J ■ • J 

INTO identifier-4 [, DELIMITER IN identifier-5] [, COUNT IN identifier-6] 

[ , identifier-7 [, DELIMITER IN identifier-8] [, COUNT IN identifier-9] ] . . 

[WITH POINTER identifier-1 0] [ TALLYING IN identifier-1 1] 

[; ON OVERFLOW imperative-statement] 



Figure 5-33. UNSTRING Statement Format 
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DELIMITED BY Phrase 

The DELIMITED BY phrase separates the sending item 
into fields that can be used for unstringing. 
Examining of the sending item begins at the 
leftmost character or at the character position 
indicated by the POINTER phrase. The examining 
continues until the characters specified by 
DELIMITED BY are encountered, the sending item 
ends, or the receiving item is full. Examining for 
the second or subsequent receiving item begins at 
either the character after any delimiter that 
stopped the previous examining or the character 
after the last character previously examined. 
Examining continues until the delimiter is encoun- 
tered, the sending item ends, or the receiving item 
is full. Examining of the characters of the 
sending item follows the rules of a MOVE state- 
ment. A numeric receiving item might not contain 
the expected characters if the last group of 
characters of the sending item does not end with a 
character Indicated in the DELIMITED BY phrase. 

The delimiter is specified by llteral-1 or the 
contents of identifier -2. It can be a nonnumerlc 
literal, figurative constant without the keyword 
ALL, or an elementary or group category alpha- 
numeric item containing any characters from the 
computer character set. Each Identifier or literal 
In a DELIMITED BY phrase acts as a single delimiter. 
A figurative constant stands for a single character. 

In the absence of the keyword ALL, two or more 
contiguous delimiters in the sending item cause the 
current receiving item to be space or zero filled, 
according to the description of the receiving 
item. If ALL appears, however, two or more 
contiguous delimiters are treated as a single 
delimiter and the following characters in the 
sending item are transferred to the receiving items. 



DELIMITER IN Phrase 

The DELIMITER IN phrase Is valid only when 
DELIMITED BY is used. It specifies the alpha- 
numeric elementary or group item to which the 
delimiting characters for this receiving item are 
transferred during UNSTRING. If the delimiting 
condition is the end of the sending item rather 
than a specified delimiter, identifier -5 is set to 
spaces . 



COUNT IN Phrase 

The COUNT IN phrase is valid only when DELIMITED BY 
is used. It specifies the elementary nimieric 
integer item in which the system sets the number of 
characters examined in the sending item, excluding 
delimiting characters, for the receiving item 
associated with identifler-4. 



USE STATEMENT 

The USE statement defines the conditions under 
which the following procedures are executed. It 
can appear only in the Declaratives portion of the 
Procedure Division and must immediately follow a 
section header. The USE statement itself Is not 
executed; rather, the associated procedures execute 
when the system determines that one of the 
specified conditions has occurred. 

USE statements are concerned with several different 
types of conditions: 

Format 1 specifies procedures for Input-output 
error or exception handling. 

Format 2 specifies procedures for execution 
Immediately before a report group is written to 
the report file. See section 6, Report Writer 
Facility. 

Format 3 identifies user items that are to be 
monitored by the associated debugging section. 
See section 10, Debugging Aids. 

Format 4 specifies the algoritlm used to 
compute the home b1 ock mmbcr for each record 
in a file with direct organization. 

Format 5 specifies a procedure for gpnfTaUng 
an access control key for data base files. See 
section 16, Subschema Facility. 

Format 6 specifies procedures to be executed 
when a deadlock situation occurs during data 
Liaso file processing. See section 16, 
Subschema Facility. 

Format 1 and format 4 of the USE statement are 
shown in figure 5-34. The combined total of 
format 1 and format 4 USE statements must not 
exceed 64. 



Forntiat 1 



(EXCEPTION t \ INPUT 

USE AFTER STANDARD |eRROR / PROCEDURE ON { OUTPUT 



Foiniat 4 



USE FOR HASHING ON trie ndini" 1 . filp-njiiii' 2 



file-name-1 [, file-name-2] 
INPUT 



l-O 
EXTEND 



■\ 



Figure 5-34. USE Statement Format 1 and Format 4 
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Files named in formats 1 and 4 must not be sort or 
merge files. Appearance of a file-name must not 
cause the simultaneous request for more than one 
USE procedure. 

Procedures must not reference any nondeclarative 
procedures. Execution of any statement within the 
USE procedure must not cause execution of a USE 
procedure that has previously been invoked and has 
not yet returned control to the invoking routine. 



Format 1 USE 

Format 1 USE procedures execute for all file 
organizations under any of these conditions; 

After standard input-output error routines are 
executed 

When an invalid key condition occurs, but an 
INVALID KEY phrase is not in the input-output 
statement that caused the condition 

When an at end condition occurs, but the AT END 
phrase is omitted from the input-output 
statement 

The words ERROR and EXCEPTION are synonymous and 
can be used interchangeably. If a file-name 
appears in the statement, the procedures are valid 
only for those files named. Otherwise, procedures 
execute for all files in the open mode specified in 
the USE statement. 

Control returns to the system error routine that 
called the procedure. If the error Is a fatal 
CYBER Record Manager error or a COBOL detected 
error, the program might terminate after the 
declarative procedure executes. To override this 
normal abort, execute ENTER "C.IOENA" before 
exiting from the declarative. This command causes 
the program to continue; however, continued 
execution of some errors can cause serious conse- 
quences such as infinite looping. If "C.IOENA" is 
called, the error limit (E«L) should be set via the 
USE clause in the SELECT statement or with a FILE 
control statement. To determine what error 
occurred and the appropriate action to take, C.IOST 
should be called. 



Format 4 USE 

Format 4 USE procedures execute each time a record 
in a direct file Is accessed. The same USE 
procedures must be specified In every program that 
accesses the file. 

The procedure must use the contents of the primary 
key to determine a value corresponding to a home 
block number. The result, which the program must 
place in the special register HASHED-VALUE, must be 
a positive integer value less than the value 
specified In the BLOCK COUNT clause In the File- 
Control entry for the file. HASHEO-VALUE is 
defined as an 8-dlgit COMP-1 Integer Item. 



WRITE STATEMENT 

The WRITE statement (figure 5-35) releases a record 
to an output file. The file must be opened for 
OUTPUT, I-O, or EXTEND. Both the access mode and 
the file organization affect the format and use of 
WRITE. 

Format 1 releases a record to a file with 
sequential organization. 

Format 2 releases a record to a file with 
organization other than sequential. 



Execution of WRITE updates any FILE STATUS item 
defined for the file. 

In the statement, record-name specifies the record 
to be written. Record-name must be a record named 
in a level 01 entry in the File Section of the Data 

Jll4l«?"' -"^ record,.".caB,""b6'. Mjntalued" in a' 'file,' 
.aliiSed-'.jUa =a subschets^^.; Record-name must not be 
the name of a record in an SD entry. 

Once WRITE executes, the record is no longer 
available in the record area, unless the WRITE 
statement execution is unsuccessful due to an 
invalid key condition or a boundary violation. If 
the associated file is named in a SAME RECORD AREA 
clause, the record is available to the program as a 
record of other files specified in the same clause. 



Format 1 

WRITE record-name [ FROM identifier-1 ] 



( BEFORE ) 

( AFTER f ADVANCING 

[■■"{ 



(identlfiBr-2l [LINE 
(integer ) [LINES, 

(mnemonic-name 
( PAGE 



fEND-OF-PAGE 



lEOP 



I 



i m perat i ve-statement 




Format 2 

WRITE record-name [ FROM identifier-1] [; INVALID KEY imperative-statement] 



Figure 5-35. WRITE Statement Format 
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The number of characters written to the file is the 
number of characters indicated by the Record 
Description entry. The program is responsible for 
the content of the record area; that is, any 
desired space fill must be provided within the 
program. 



Format 1 WRITE 

Format 1 is valid only for sequential files. Only 
the FROM optional phrase has meaning for files that 
are not to be printed. The other optional phrases 
can be used on files that are not to be printed, 
but they might Insert a carriage control character 
as the first character of every record and might 
generate extra dummy records. 



FROM Phrase 

Execution of a WRITE with the FROM phrase is 
equivalent to execution of : 

MOVE ldentifier-1 TO record-name. 

WRITE record-name. 

Record-name and identlfler-1 must not reference the 
same storage area. The contents of the record area 
prior to the Implicit MOVE have no effect on WRITE 
execution. Information in identifier-1 remains 
available to the program. 



ADVANCING Phrase 

The ADVANCING phrase specifies positioning before 
or after the record is written, depending on 
whether the keyword BEFORE or the keyword AFTER 
appears in the phrase. The remainder of the phrase 
determines the type of positioning: 

Identifler-2 or integer 



implementor-name IS mnemonic-name clause in 
the SPECIAL-NAMES paragraph of the Environ- 
ment Division. Mnemonic-name cannot be 
used to position the record when the FD 
entry for the file contains a LINAGE clause. 

If a WRITE statement with the ADVANCING phrase has. 
been executed on a file since the file was last 
opened, a subsequent WRITE statement that does not 
specify the ADVANCING phrase causes a record to be 
written as if AFTER ADVANCING 1 LINE had been 
specified if the first character of the line is a 
space. If the first character is not a space, the 
record is written as if AFTER ADVANCING mnemonic- 
name had been specified. 

Mixing BEFORE and AFTER can cause overprinting. 
For example, AFTER 2 followed by BEFORE integer 
causes overprinting. Advancing integer lines moves 
the carriage forward Integer lines; it does not 
leave integer blank lines between printed lines. 
For example, AFTER Integer followed by AFTER 3 
leaves two blank lines between the two printed 
lines . 

Blank lines are generated for positioning in the 
following Instances: 

A WRITE statement with the ADVANCING phrase 

A WRITE statement without ADVANCING on a file 
with LINAGE specified 

A WRITE statement without ADVANCING on a file 
with a WRITE ADVANCING statement as the 
previous operation 

The COBOL compiler might insert standard carriage 
control characters (blank + - 0) in these lines as 
well as in the line to be printed. The hyphen 
character is not legal on some devices under the 
NOS operating system. It can be eliminated by 
specifying NOTRIP on the execution control state- 
ment. If the character is legal, NOTRIP might 
cause a larger print file and slower printing. 



Skip number of lines specified by integer 
or the value of identlfier-2. Identifier-2 
must be an unsigned integer data item. A 
value of zero can be specified. 

PAGE 

Skip to the first print line on the next 
logical page defined by the LINAGE clause 
in the Data Division FD entry. Alterna- 
tively, a top-of-f orm carriage control 
character can be used for this purpose. 
See the LINAGE clause in section 4. If no 
LINAGE clause exists for the file contain- 
ing record-name, a top-of-f orm carriage 
control character becomes the first 
character of the record. If the device on 
which the file Is being output has no 
top-of-f orm concept (for example, a file 
being printed at a Teletypewriter) , the 
phrase acts as if ADVANCING 1 LINE had been 
specified. 

Mnemonic-name 

Carriage control character defined by 
mnemonic-name becomes the first character 
in the current or next record. The 
mnemonic-name must be specified in an 



END-OF-PAGE Phrase 

The END-OF-PAGE phrase and its equivalent EOP are 
valid only for print files in which the FD entry 
includes a LINAGE clause. LINAGE defines a page 
body that includes an optional footing area. 

If a WRITE statement execution causes printing 
or spacing in the footing area of the page 
body, an end-of-page condition exists. The 
WRITE statement is executed, and then the 
imperative-statement in the EOP phrase is 
executed . 

If the WRITE statement execution would exceed 
the page body including the footing area, a 
page overflow condition exists. For a page 
overflow condition, the WRITE statement 
executes, the file Is positioned to the 
beginning of the next logical page, the special 
register LINAGE-COUNTER is reset to 1, and the 
imperative-statement of the EOP phrase executes. 

If no footing area is defined, an overflow 
condition exists. 

A combined end-of-page and overflow condition 
acts as an overflow condition. 
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When an attempt Is made to write beyond the 
externally defined boundaries of a sequential file, 
an exception condition exists, and the contents of 
the record area are unaffected. Exception condi- 
tions are discussed with the FILE STATUS data item 
in section 3. 



Format 2 WRITE 

Format 2 must be used for any file that does not 
have sequential organization. Its use and results 
are affected by file organization, access mode, and 
open mode. 



Sequential Access Mode 

Files open with OUTPUT or I-O in the sequential 
access mode have records written to the file under 
system control. 

Relative and word-address files need not have a 
key defined within the program. The system 
generates a key for each record referenced in a 
format 2 WRITE statement, writes the record to 
the file, and returns the key value to the 
program when the RELATIVE KEY or WORD-ADDRESS 
KET data item Is specified. 



Extended actual-key files must have a RECORD 
KEY data item defined within each record or 
within the Working-Storage Section, although 
the program does not establish a value in the 
item. Initial actual-key files must have an 
embedded key. The system generates a key for 
each record referenced in a format 2 WRITE 
statement, writes the record to the file, and 
returns the key value to the program in the 
RECORD KEY data item. 



the DUPLICATES phrase is omitted from the ALTERNATE 
RECORD KEY clause for the file. Any duplication 
of an alternate record key value under these 
circumstances creates an invalid key condition. 

For moat efficient processing, an Indexed file 
should be created only in the sequential access 
mode. 



Random or Dynamic Access Mode 

Files open with OUTPUT or 1-0 in the random access 
mode or dynamic access mode have records written 
according to the key values supplied by the program. 

In files with organizations other than word- 
address, WRITE cannot be used to rewrite an 
existing record. An Invalid key condition occurs 
on an attempted write of a record that duplicates 
an existing record key value or that violates one 
of the ALTERNATE RECORD KEY phrases (such as no 
duplicate values). 



Word-address files have the record written to 
the address specified by the value of the 
WORD-ADDRESS KEY data item, with no regard for 
other information that might be at that 
location. 



Extended indexed and extended direct tiles must 
nave a RECORD KEY data Item defined within each 
record or within the Working-Storage Section. 
Initial Indexed and initial direct files must 
have the key embedded in the record. The value 
of the item must be unique among all file 
records . 



Extended direct files must have a RECORD KEY 
data Item defined within each record or within 
the Working-Storage Section. Initial direct 
files must have an embedded key. The program 
is responsible for setting a unique key value 
in the item for each file record. The key 
value determines the location of the record in 
the file. 



Extended indexed files must l-iave a RECORD KEY 
data item defined within each record or within 
the Working-Storage Section. Initial Indexed 
files must have an embedded key. The program 
is responsible for setting a unique key value 
in the item for each file record and for 
writing the records in order by ascending key 
value. The key value determines the location 
of the record in the file. An invalid key 
condition exists for any attempt to write a 
record out of order for Initial indexed files. 
Sequential access mode is not required for 
extended Indexed files. 



Extended actual-key files must have a RECORD 
KEY data item defined within each record or 
within the Working-Storage Section. Initial 
actual-key files must have an embedded key. 
The value of the item must be unique among all 
records of the file for Initial actual-key 
organization. The key must be formatted to 
correspond to a block number and a record 
number within the block. The block number must 
not be more than 1 greater than the highest 
number of an existing block. System key 
generation is recommended for all records 
written to an actual-key file. A zero value in 
the key data item requests system generation. 
The system generates a key value, writes the 
record to that location, and returns the key 
value to the program in the RECORD KEY data 
Item. 



Relative file records are written to the 
location specified by the value of the RELATIVE 
KEY data item. 



When an Indexed, direct, or actual-key file has 
alternate keys, all alternate record key values 
must be unique within all records of the file if 



The values for any alternate record keys defined 
for Indexed, direct, and actual-key files must meet 
the same criteria as for files open in sequential 
access mode. 
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FROM Phrase 



The FROM phrase Is the same as for format 1. 



Violations of the ALTERNATE RECORD KEY phrases 
for indexed, direct, or actuai-key files. 



INVALID KEY Phrase 

The INVALID KEY phrase specifies the imperative- 
statement that executes when an invalid key 
condition occurs. Situations that cause the 
condition include the - following : 

Duplicated primary key values for records 
existing In indexed, direct, or actual-key 
files or relative key values in relative files. 



Improperly formatted actual-key file primary 
key, including a block number that exceeds the 
highest existing block number plus one. (That 
is, records not written in ascending block 
order . ) 



When the phrase is omitted, strict ANSI usage 
requires an appropriate format 1 USE ■ statement for 
the file. See the FILE STATUS discussion in 
section 3. 
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REPORT WRITER FACILITY 



The Report Writer facility allows a report to be 
produced from program specification of the report's 
physical appearance, rather than through detailed 
specification of the procedure needed to write the 
report. 

A report is named in a REPORT clause of an FD entry 
in the File Section of the Data Division. The 
description of the report file appears In the 
Report Section of the Data Division. 

Each report is defined In the Report Section using 
a Report Description (RD) entry followed by Report 
Group Description entries. 

The RO entry specifies the overall page format 
and defines break control items that allow, for 
example, subtotals to be generated at the 
bottom of each page. 

Each Report Group Description entry specifies 
one of the seven different types of report 
groups. Table 6-1 summarizes report group 
types and the circumstances under which they 
are generated. A report group generally Is one 
line of a page, but It can extend over several 
lines. The TYPE statement of the entry defines 
the report group type. 

Each elementary item in a report group is described 
by the position it is to occupy on the page and by 
the origin of the data. Relative or absolute 
vertical position Is specified by the LINE NBMBER 
clause; horizontal position is specified by a 
COLUMN NUMBER clause. Each elementary Item 
description mvist Include one of the following 
clauses to define a printable item and to Identify 
the origin of data for the item: 

SOURCE specifies a sending item. 

SUM specifies items that are to be added to 
obtain the item; It is valid only for a CONTROL 
FOOTING report group. 

VALUE specifies a literal. 

Many clauses that define elementary Items in a 
report group are the same as those used for Record 
Description entries in the File Section of the Data 
Division, Only those unique to the Report Section 
are explained here; see section 4 for details of 
other clauses. 

Report groups are written to the report file 
through execution of Procedure Division state- 
ments. The report file must be opened by the 
program before any Report Writer statement is 
executed, and should be closed after the last 
Report Writer statement. No other Input-output 
statements should reference the report file. 



TABLE 6-1. REPORT GROUP TYPE SUMMARY 



Report Group Type 


When Written to 
Report File 


Report heading 


Once per report during 
execution of the first 




GENERATE statement. 


Page heading 


Once at the beginning of 
each page. 


Body group: 




Control heading 


Either once per report or 
each time a control break 




occurs, depending on the 
CONTROL clause. 


Detail 


Each time a GENERATE 




data-name statement 




executes . 


Control footing 


Either once per report or 
each time a control break 




occurs, depending on the 
CONTROL clause. 


Page footing 


Once at the end of each 




page. 


Report footing 


Once per report during 
execution of the TERMINATE 




statement. 



Report Writer statements are: 

INITIATE 

Initializes counters and special registers 

GENERATE 

Writes a DETAIL report group or produces a 
summary report, depending on statement 
elements 

TERMINATE 

Performs end-of-report processing 

SUPPRESS 

Suppresses report group in a USE BEFORE 
REPORTING declarative procedure 
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Each time the program executes a GENERATE data-name 
statement, a type DETAIL report group is written to 
the report file. Other report groups might also be 
written, depending on the current circumstances 
analyzed by Report Writer. The user program does 
not directly Initiate processing of any report 
group type except DETAIL. A summary report is 
produced by a GENERATE report-name statement. 



( REPORT IS \ 



\ REPORTS ARE/ report-name-1 [, report-name-2] 



Figure 6-1. REPORT Clause Format 



REPORT FILE 

The report file Is named by an FD entry in the File 
Section. Information for all reports named in the 
FD entry Is accumulated on the report file. When 
more than one report is written to the file, the 
CODE clause should be specified in the Report 
Section so that entries for one report can be 
distinguished from those of other reports. 

The job in which the program appears is responsible 
for the ultimate disposition of the report file. 
If the SELECT clause assigns the file to the 
implementor-name "OUTPUT", the report is printed at 
job termination. Otherwise, the job should 
preserve the report file for later processing or 
output . 

Each report group written to the file contains 
carriage control characters and data properly 
formatted by Report Writer to produce the report 
described in the program. When only one report is 
specified, the report can be printed by a control 
statement that copies the report file to a file 
with print disposition. When more than one report 
is specified, however, the report file should be 
processed by a user program that uses CODE clause 
Identifiers to separate lines of one report from 
lines of another. 



REPORT FILE STRUCTURE 

The report file described in the FD entry must have 
sequential organization. Records in the file are 
137 or 139 characters in length, depending on 
whether the CODE clause is used. When the CODE 
clause is specified, the line is 139 characters: 

The first two characters in the line are the 
code identifier. 

The third character is the carriage control 
character. 



A Record Description entry cannot follow an FD 
entry that contains a REPORT clause. 

In the clause, each report-name specifies a report 
that must be the subject of an RD entry in the 
Report Section. The presence of more than one 
report-name in the REPORT clause indicates that the 
file contains more than one report. The order of 
the appearance of the report-names is insignifi- 
cant. A report-name must appear in only one REPORT 
clause . 



SPECIAL REGISTERS 

IVo special registers, referenced by the reserved 
words PAGE-COUNTER and LINE-COUNTER, are auto- 
matically created for each report specified in 
the Report Section. They implicitly describe 
6-digit COMP-1 unsigned integers, whose values 
are maintained by Report Writer. 

PAGE-COUNTER and LINE-COUNTER are referenced in the 
Report Section by the SOURCE clause. Within the 
Report Section, references need not be qualified. 
Outside of the Report Section, these registers can 
be used in any context in which a data-name with an 
Integer value can appear; references to PAGE- 
COUNTER and LINE-COUNTER must be qualified by the 
report-name when more than one report is specified 
for the program. 



PAGE-COUNTER 

The value of PAGE-COUNTER is used by Report Writer 
to number the pages of a report. The register is 
set to 1 when the report is initialized by the 
INITIATE statement. It is incremented by 1 each 
time a page advance occurs. 

The value of PAGE-COUNTER can be altered by 
Procedure Division statements. 



Characters 4 through 139 are data defined by 
the program as column numbers 1 through 136. 

When the CODE clause is omitted, line length is 137 
characters, with the system-supplied carriage 
control character in the first position. 

The file has block type C and record type Z 
structure. Report records are generated by the 
WRITE statement with ADVANCING phrase. Refer to 
the WRITE statement for further information about 
these records. 



REPORT CLAUSE 

The REPORT clause (figure 6-1) specifies the names 
of reports to be written to the report file. The 
clause must appear in an FD entry defining the 
report file. 



LINE-COUNTER 

The value of LINE-COUNTER represents the line 
nimber on which the print line is to be written. 
The register is set to zero when the report is 
initialized by the INITIATE statement. It is 
Incremented during processing of each report group 
and reset to zero at the beginning of each page. 
The value of LINE-COUNTER cannot be altered by 
Procedure Division statements. 



REPORT SECTION 

The Report Section of the Data Division describes 
reports that are generated through the Report 
Writer. Each report must be named In the REPORT 
clause of an FD entry in the File Section and must 
be specified in detail, beginning with an RD entry, 
in the Report Section. 
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The Report Section Is composed of a section header 
followed by Report Description entries. The 
section header is: 

REPORT SECTION. 



CODE literal 



The header must appear on a separate line, beginning 
in area A, and must be terminated by a separator 
period . 

Each BD entry is followed by any number of Report 
Group Description entries for report groups and 
elementary items that further describe report 
characteristics. At least one Report Group 
Description entry Is required; at least one body 
group is required. 



REPORT DESCRIPTION ENTRY 

The Report Description entry names a report, 
specifies any identifying characters that are to be 
prefixed to each print line to distinguish lines 
for this report from those of other reports, and 
describes the physical structure and organization 
of the report. The entry consists of the level 
indicator RD followed by the report name and 
descriptive clauses defining the report and its 
structure. Clauses specify the vertical boundaries 
of the region within which each type of report 
group is printed, the break control items, and the 
definition of each page of the report. The general 
format of the Report Description entry is shown in 
figure 6-2. 



RD report-name 
[; CODE clause] [; CONTROL clause] 
[; PAGE clause] 



Figure 6-2. Report Description Entry Skeleton 



Report-name, which specifies the name of the report, 
must also appear in one and only one REPORT clause 
of an FD entry. Report-name Is the highest level 
qualifier that can be specified for LINE-COUNTER, 
PAGE-COUNTER, and all data-names defined within the 
Report Section. Report-name must follow the RD 
indicator. 



CODE Clause 

The CODE clause (figure 6-3) specifies a two- 
character identifier that Report Writer adds to 
each line to distinguish entries for this parti- 
cular report. It should be used when the FD entry 
for the report file specifies more than one report. 

When the CODE clause is specified for one report 
named in an FD entry, it must be specified for all 
reports named in that entry. 



Figure 6-3. CODE Clause Format 



In the clause, literal must be a two-character 
nonnumerlc literal. The characters become the 
first two character positions of each line gener- 
ated through Report Writer. The positions occupied 
by the literal are not included in the description 
of the print line, but they are Included in the 
record size. 

Separation of report entries on the basis of CODE 
clause characters is the responsibility of a user 
program. 



CONTROL Clause 

The CONTROL clause (figure 6-4) establishes a 
hierarchy of break control items to cause proc- 
essing of control footings and control headings. 
The CONTROL clause must be specified when: 

TYPE CONTROL HEADING or TYPE CONTROL FOOTING 
clauses are specified 

RESET clause is part of a SUM clause 

If the clause is omitted, control breaks are not 
processed . 

Break control items referenced in this clause are 
the same items declared in the TYPE clause of a 
Report Group Description entry for a CONTROL 
FOOTING or CONTROL HEADING report group. Control 
footings and control headings are processed when a 
control break occurs. A control break is defined 
as a change in the value of a break control item 
detected by Report Writer during execution of a 
GENERATE statement. Each time a GENERATE statement 
executes, Report Writer compares the current values 
of all break control items with the values existing 
at the time the previous GENERATE statsnent exe- 
cuted. A change in the value of a break control 
item defines a control break for that item. 

The number of CONTROL FOOTING or CONTROL HEADING 
report groups processed for a given control break 
depends on the position of the break control item 
in the CONTROL clause list. Processing occurs for 
the footing or heading associated with the right- 
most break control item in the list, proceeds to 
the second-from-the-right item, and continues 
processing for the footing or heading item to the 
left. The last footing or heading processed for a 
given control break is the footing or heading 
associated with the break control item that caused 
the control break. See the GENERATE statanent 
discussion for additional details of this process. 



t CONTROL IS 



:} 



i data-name-1 [, data-name-2] 



I CONTROLS ARE f \ FINAL [, data-name-1 [, data-name-2] . . .] , 



Figure 6-4. CONTROL Clause Format 
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The br£iak control Item that causes a control break 
Is reset after processing, unless the RESET phrase 
of the SUM clause that defined the item specifies 
other conditions for reset. 

The values of break control Items that are used to 
detect a control break are called prior values. 
The prior values are made available to break con- 
trol items referenced in either a USE procedure or 
SOURCE clause associated with CONTROL FOOTING 
report group during control break processing. Any 
other references to the break control items access 
the current value. Execution of a TERMINATE 
statement causes the CONTROL FOOTING, REPORT 
FOOTING, and USE procedures to reference the prior 
values of the break control item as if a control 
break occurred. 

In the clause, each data-name or FINAL must 
correspond to a data-name or FINAL in a Report 
Group Description entry with a TYPE CONTROL HEADING 
clause or a TYPE CONTROL FOOTING clause. Each 
data-name must define a different fixed-length item 
in the File Section, Working-Storage Section, or 
Common-Storage Section of the Data Division. 
Data-names can be qualified, but must not be 
subscripted or Indexed. The clause defines break 
control items . 

The leftmost data-name is the major break control 
item; the rightmost data-name is the minor break 
control item. 



PAGE Clause 

The PAGE clause (figure 6-5) defines the length of 
a logical page and the vertical subdivisions within 
which report groups are presented. When the PAGE 
clause is omitted or integer-1 is incorrectly 
specified, the report consists of a single page of 
indefinite length and only relative NEXT GROUP can 
be specified in any Report Group Description entry 
for the report. Phrases of the PAGE clause can 
appear in any order. 



If line number specifications for REPORT HEADING 
and PAGE HEADING report groups overlap on the same 
page, the SUPPRESS statement should be used to 
suppress printing of one of the report groups at 
execution time. The same is true for overlapping 
PAGE FOOTING and REPORT FOOTING report groups. If 
neither is suppressed, an error exists and neither 
of the overlapping groups appears. 

In the clause, integer-1 specifies the number of 
lines available on each page. Integer-1 must be an 
unsigned integer with a value greater than or equal 
to any value of integer-5. The maximum value of 
integer-1 is 999. 



HEADING Phrase 

The HEADING phrase designates the first line number 
on which a REPORT HEADING or PAGE HEADING report 
group can be presented. Integer-2 must be an 
unsigned integer with a value greater than or equal 
to I. When the phrase is omitted or integer-2 Is 
incorrectly specified, the value of integer-2 
defaults to 1. 



FIRST DETAIL Phrase 

The FIRST DETAIL phrase specifies the first line 
number on which a body group can be presented. 
Integer-3 must specify an unsigned integer with 
a value greater than or equal to the value of 
integer-2. When the phrase is omitted or integer-3 
is incorrectly specified, the value of integer-3 
defaults to the value of integer-2. A REPORT 
HEADING or PAGE HEADING report group cannot be 
presented on or beyond the line nimiber specified by 
integer-3. 



LAST DETAIL Phrase 

The LAST DETAIL phrase specifies the last line 
number on which a CONTROL HEADING or DETAIL report 
group can be presented. Integer-4 must specify an 
unsigned integer with a value greater than or equal 
to integer-3. When the phrase is omitted or 
integer-4 is incorrectly specified, the default 
value depends on the FOOTING phrase: if FOOTING is 
specified, the default value is integer-5; if 
FOOTING is omitted, the default is integer-1. 



FOOTING Phrase 

The FOOTING phrase specifies the last line number 
on which a CONTROL FOOTING report group can be 
presented. Integer-5 must be an unsigned Integer 
with a value greater than or equal to the value of 
lnteger-4. When the phrase is omitted or integer-5 
is Incorrectly specified, the default value depends 
on the LAST DETAIL phrase: if LAST DETAIL is 
specified, the default value is integer-4; if LAST 
DETAIL is omitted, the default is integer-1. PAGE 
FOOTING and REPORT FOOTING report groups must 
follow the line number specified by integer-5. 

Table 6-2 summarizes the regions established by the 
PAGE clause. 



REPORT GROUP DESCRIPTION ENTRY 

The Report Group Description entry (figure 6-6) 
specifies the characteristics of a report group and 
the individual items within a report group. The 
entry follows the RD entry in the Report Section. 



»»-^,- fLIMIT IS 1 . . TLINE 1 , 

PAGE LlIMITS AReJ *"teger-1 [liimesJ t' HEADING integer-2] 

[, FIRST DETAIL integer-3] [, LAST DETAIL integer-4] 
{, FOOTING integer-5] 



Figure 6-5. PAGE Clause Format 
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TABLE 6-2. PAGE REGIONS SUMMARY 



Report Groups that can be 
Presented in the Region 


First Line Number 
of the Region 


Last Line Number 
of the Region 


REPORT HEADING with NEXT 
GROUP NEXT PAGE phrase 


integer-2 


lnteger-1 


REPORT FOOTING with LINE 
lnteger-1 NEXT PAGE phrase 


REPORT HEADING without NEXT 
GROUP NEXT PAGE phrase 


integer-2 


lnteger-3 
. minus 1 


PAGE HEADING 


CONTROL HEADING 


lnteger-3 


lnteger-4 


DETAIL 


CONTROL FOOTING 


lnteger-3 


integer-5 


PAGE FOOTING 


integer-5 
plus 1 


lnteger-1 


REPORT FOOTING without LINE 
integer- 1 NEXT PAGE phrase 



Format 1 

01 [data-name] 

[; LINE NUMBER clause] 

Format 2 

level-number [data-name] 

[; LINE NUMBER clause] 

Format 3 



[; NEXT GROUP clause] ; TYPE clause [; USAGE clause] , 



[; USAGE clause] . 



level-number [data-name] 

[; BLANK WHEN ZERO clause] [; COLUMN NUMBER clause] [; GROUP INDICATE clause] 
[; JUSTIFIED RIGHT clause] [; LINE NUMBER clause] ; PICTURE clause 

[; SOURCE clause) 

I ; VALUE clause } [; USAGE clause] . 

( ; SUM clause 



Figure 6-6. Report Group Description Entry Skeletons 



A Report Group Description entry must begin with a 
level-number 01 entry that contains a TYPE clause. 
The level 01 entry can be followed by any number of 
group and elementary entries. 

The data-name clause, when present, must follow the 
level number. The other clauses can appear in any 
sequence. An entry that contains a LINE NUMBER 
clause cannot have a subordinate entry that also 
contains a LINE NUMBER clause. 



A GENERATE statement references a DETAIL report 
group. 



The UPON phrase of a SUM clause references a 
DETAIL report group. 



A CONTROL FOOTING report group qualifies a sum 
counter reference. 



Format 1 Entry 

The first entry in a Report Group Description entry 
must be format 1 with its required TYPE clause. 
The data-name is required only If one of the 
following occurs: 



A USE BEFORE REPORTING procedure statement 
references a report group. 

When the USAGE clause is specified, at least one 
subordinate entry must contain a SOURCE, SUM, or 
VALUE clause to define a printable item. 
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Format 2 Entry 

A format 2 entry Is a group entry, that. If 
present, must be subordinate to a format 1 entry 
and be followed by at least one format 3 entry. A 
format 2 entry can have a level-number of 02 
through 48 and must contain at least one optional 
clause. Any data-name-1 specified can be used only 
to qualify a sum counter reference. 



A SUM clause can only appear in a TXPE CONIIU)L 
FOOTING report group. 

Any data-name clause can be used only to 
qualify a sum counter reference, although it 
can always be specified. 

The combined clauses that can be specified for a 
format 3 entry are shown in table 6-3. 



When the USAGE clause is specified, at least one 
subordinate entry must contain a SOURCE, SUM, or 
VALUE clause to define a printable Item. 



Format 3 Entry 

A format 3 entry must define an elementary data 
item. The entry can follow either a format 1 entry 
or a format 2 entry; the level-number can be any 
integer from 02 through 49. In a format 3 entry: 

An entry that contains a VALUE clause must also 
have a COLUMN NUMBER clause. 

An entry that contains a COLUMN NUMBER clause 
but no LINE NUMBER clause must be subordinate 
to an entry that contains a LINE NUMBER clause. 

A LINE NUMBER clause cannot be the only clause 
specif i(ed. 

A GROUP INDICATE clause can only appear in a 
TXPE DETAIL report group. 



BLANK WHEN ZERO Clause 

The BLANK WHEN ZERO clause causes substitution of 
spaces for a zero value of an item. See Data 
Description Entry in section 4. 



COLUMN NUMBER Clause 

The COLUMN NUMBER clause (figure 6-7) specifies the 
column n\miber position of a printable item on a 
print line. A printable item is established by the 
presence of a VALUE, SOURCE, or SUM clause; a print 
line by the presence of a LINE NUMBER clause. 



COLUMIM NUMBER IS rnteger 



Figure 6-7. COLUMN NUMBER Clause Format 



TABLE 6-3. FORMAT 3 CLAUSE COMBINATIONS 



Format 3 Item 
to be Established 


Clauses 


SUM 


VALUE 


SOURCE 


COLUMN 


PIC 


JUST 


BLANK 

WHEN 

ZERO 


GROUP 
INDICATE 


USAGE 


LINE 


Nonprlntable sum 
counter 

Printable sum counter 

Printable constant 

Nonprlntable item 
moved from any Data 
Division Section 

Printable item moved 
from any Data Divi- 
sion Section 


M 
M 


M 


M 

M 


M 
M 

M 


M 

M 
H 
M 

M 


Pt 
Pt 

Pt 


P 

Ptt 

Ptt 


P 

P 


P 
P 

P 


P 
P 
P 

P 


Tpermitted for an Item which is not numeric or numeric edited 
TtPermitted for a numeric or numeric edited item 
Legend: 

M Mandatory 

P Allowed 

- Not allowed 
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The COLUMN NUMBER clause must be specified at the 
elementary level within a report group. The clause 
must appear In an entry that either contains a LINE 
NUMBER clause or Is subordinate to an entry that 
contains a LINE NUMBER clause. 

In the clause. Integer specifies the column number 
of the leftmost character position of the item. 
Integer must be an unsigned integer with a value in 
the range 1 through the number of printable columns 
In the print line. (The printable columns of a 
print line are numbered 1 through 136, left to 
right, with the first position of the print line 
being column 1.) 

When more than one printable Item exists within a 
print line, entries for each line must be ordered 
such that COLUMN NUMBER clauses define columns in 
ascending order. 



GROUP INDICATE Clause 

The GROUP INDICATE clause (figure 6-8) specifies 
that the associated printable item Is presented 
only under special conditions. It can appear only 
at the elementary level of a DETAIL report group 
item. 



contains a LINE NUMBER clause. Positioning 
Indicated by the clause occurs before the print 
line is written to the report file. 



GROUP INDICATE 



Figure 6-8. GROUP INDICATE Clause Format 

When either the PAGE clause or the CONTROL clause 
is specified for the associated RD entry, the GROUP 
INDICATE item is printed according to SOURCE or 
VALUE specifications at the first presentation of: 

Associated report group In the report 

Report group after every page advance 

Report group after each control break 

When neither the PAGE clause nor the CONTROL clause 
is specified for the associated RD entry, the GROUP 
INDICATE item is presented the first time its 
report group is processed after the INITIATE state- 
ment Is executed. The GROUP INDICATE clause is 
Ignored thereafter. Spaces are supplied for the 
printable item whenever the GROUP INDICATE clause 
causes an item to be Ignored. 



JUSTIFIED Clause 

The JUSTIFIED clause specifies nonstandard 
positioning of data In a receiving Item. See Data 
Description Entry In section 4. 



I IMC MiiiwicicD ic i inteaer-l [ON NEXT PAGE ] ) 
LINE NUMBER IS ^ PLUS integer-2 / 



Figure 6-9. LINE NUMBER Clause Format 



In the clause, integer-1 and integer-2 specify the 
line on which information Is to appear. Both 
integers must be unsigned and have a value 1 
through 999. Either absolute or relative line 
ntmibers can be specified. 

Integer-1 specifies an absolute line number. It 
can be used only when a PAGE clause has been 
specified. All LINE NUMBER clauses with absolute 
line numbers must precede clauses specifying 
relative line numbers. Successive clauses must 
specify integers in ascending, but not necessarily 
consecutive, order. 

Integer-2 specifies a relative line number. Report 
Writer adds integer-2 to the line counter of the 
previous print line to determine the position of 
the line containing this clause. When a relative 
line number is the first LINE NUMBER clause of the 
report group, the line number on which the print 
line is presented is calculated as shown in 
table 6-4. 

Values specified for both integer-1 and integer-2 
must be within any vertical subdivisions defined 
with a PAGE clause. 

The first LINE NUMBER clause specified for a PAGE 
FOOTING report group must be an absolute line 
number clause. 

The NEXT PAGE phrase specifies that the report 
group Is to be presented on a new page, beginning 
on the line indicated. The phrase can appear 
in either a REPORT FOOTING report group or the 
description of a body group. The phrase can appear 
only once in a report group and, if present, must 
appear in the first LINE NUMBER clause of the 
report group. 



NEXT GROUP Clause 

The NEXT GROUP clause (figure 6-10) specifies 
vertical positioning following the presentation of 
the last line of a report group. It must not be 
specified in a REPORT FOOTING or PAGE HEADING 
report group or in any report group entry that does 
not contain at least one LINE NUMBER clause. 



LINE NUMBER Clause 

The LINE NUMBER clause (figure 6-9) defines a print 
line and specifies vertical positioning for that 
line within a report group. The clause must be 
specified for every entry that contains a COLUMN 
NUMBER clause, except that a LINE NUMBER clause 
must not be subordinate to an entry that also 



NEXT GROUP IS < PLUS integer-2 ' 

(next page I 



i integer-1 



Figure 6-10. NEXT GROUP Clause Format 



60497100 J 



6-7 



TABLE 6-4. LINE NUMBER PRESENTATION RULES 



Report Group 


Line Ninaber On Which First Line is Presented 


REPORT HEADING: 




with PAGE clause 


First LINE NUMBER + ((integer-2) - 1). 


without PAGE clause 


LINE-COUNTER + first LINE NUMBER clause. 


PAGE HEADING: 




with PAGE clause 


If the REPORT HEADING is presented on the same page, LINE-COUNTER 
+ first LINE-NUMBER clause; otherwise, first LINE NUMBER clause + 
((integer-2) - 1). 


Body groups (CONTROL HEADING, 
DETAIL, and CONTROL FOOTING 
report groups): 




with PAGE clause 


If LINE-COUNTER ^ integer-3 and it is the first body group on the 
page, LINE-COUNTER + 1. 




If LINE-COUNTER > integer-3 and it is not the first body group on 
the page, LINE-COUNTER + first LINE NUMBER clause. 




If LINE-COUNTER < integer-3, integer-3. 


without PAGE clause 


LINE-COUNTER + first LINE NUMBER clause. 


PAGE FOOTING: 




with PAGE clause 


Print line is presented on the line nvimber specified by the first 
line number clause, which must be an absolute LINE NUMBER clause. 


REPORT FOOTING: 




with PAGE clause 


If presented on the same page as the PAGE FOOTING report group, 
LINE-COUNTER + first LINE NUMBER clause. Otherwise, first LINE 
NUMBER + integer-5. 


without PAGE clause 


LINE COUNTER + first LINE NUMBER. 



The NEXT GROUP clause refers to the next report 
group to be presented and, therefore, can affect 
the location at which the next report group is 
presented. If the clause appears in a REPORT 
HEADING report group, it can affect the location at 
which the PAGE HEADING is presented; if the clause 
appears in a PAGE FOOTING report group, it can 
affect the location at which the REPORT FOOTING 
report group is presented. The NEXT GROUP clause 
is ignored if it is specified on a CONTROL FOOTING 
report group that is at a level other than the 
highest level at which a control break is detected. 

Page positioning specified by the NEXT GROUP clause 
takes place after the presentation of the report 
group in which the clause appears, even if one or 
more of the lines in the group is not a print 
line. The Information supplied by the NEXT GROUP 
clause is combined with information from the TYPE 
and PAGE clauses and the LINE-COUNTER value to 
determine a new value for LINE-COUNTER. 

In the clause, integer-I and integer-2 specify a 
line number on which the next report group Is to be 
presented. Both Integers must be unsigned with a 
value in the range 1 through 999. Integer-1 
specifies an absolute number; integer-2 specifies a 
relative number as discussed with the LINE NUMBER 
clause . 



When the PAGE clause is omitted from the RD entry, 
only a relative NEXT GROUP clause can be specified 
In any Report Group Description entry within that 
report . 

The NEXT PAGE phrase can be used for any report 
group except PAGE FOOTING. It causes the next 
report group to appear on the following page of the 
report. When the phrase is specified for a REPORT 
HEADING report group, the heading appears by itself 
on the first page of the report. 



PICTURE Clause 

The PICTURE clause specifies the general character- 
istics and editing requirements of an elementary 
item. See Data Description Entry in section 4. 



SOURCE Clause 

The SOURCE clause (figure 6-11) identifies the 
sending data item that is to be moved to a print- 
able item defined within a Report Group Description 
entry. The clause is one of three (SOURCE, SUM, or 
VALUE) that must be specified for each elementary 
item in a report group to define the purpose of the 
item within the group. 
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SOURCE IS identifier 



Figure 6-11. SOURCE Clause Format 



The SOURCE clause specifies an Implicit MOVE 
statement that causes the named data item to be 
transferred to the item within the report group 
prior to the presentation of the report group. 

In the clause, Identifier specifies the data item 
that is to be moved to the report group item. It 
must be defined so that the operation is allowed by 
MOVE statement rules. 

Identifier can be defined in any section of the 
Data Division. If it is defined In the Report 
Section, It must either be the special register 
PAGE-COUNTER or LINE-COUNTER or be a sum counter 
of the report. 



SUM Clause 

The SUM clause (figure 6-12) establishes a sum 
counter and specifies the items to be summed. The 
SUM clause must only appear in the description of a 
CONTROL FOOTING report group. More than one SUM 
clause can appear in an elementary report group 
entry, but only one sum counter Is established for 
the entry regardless of the number of SUM clauses 
specified. 



1 SUIVI identifier-1 [, identifier-2] . . . 


[upon data-name- 


■1 


[, data-name-2] . . 


• ]}■■• 


^^^^^ ^.. i data-name- 
RESET ON \ FINAL 


''}] 



report group. It occurs whenever a TERMINATE 
statement is executed or a' CONTROL FOOTING 
report group is presented as the result of a 
control break. 

The sum counter established Is a numeric data item 
with an operation sign, whose size is equal to the. 
number of receiving character positions specified 
by the accompanying PICTURE clause. 

The highest qualifier allowed for a sum counter is 
report-name. 

If the report group for a printable Item contains a 
SUM clause, the sum counter serves as a source data 
item. Sum counter contents are moved to the print- 
able item in accordance with the rules for a MOVE 
statement. If a report group contains both a 
data-name clause and a SUM clause, the data-name is 
the name of the sum counter, not the name of the 
printable item that the entry also defines. 

In the clause, the identifiers must specify numeric 
data items that contain the values that are to be 
added into the sum counter. The Identifiers 
themselves can specify sum counters that are 
defined either in the same control footing report 
group or in a lower level control footing report 
group. When two or more Identifiers specify the 
same data item, the data item is added into the 
sum counter as many times as the data item is 
referenced In the SUM clause. 



UPON Phrase 



Figure 6-12. SUM Clause Format 



The UPON phrase allows for selective subtotallng of 
the identifiers. Subtotallng occurs only when the 
data-name of the UPON phrase is executed in a 
GENERATE data-name statement. When UPON is 
specified, the identifiers of the SUM clause must 
not name stm counters. 

Data-name-1 and data-name-2 must be the names of 
DETAIL report groups described in the same report 
as the CONTROL FOOTING report group in which the 
SUM clause appears. The data-names can be quali- 
fied by a report-name. When two or more data-names 
specify the same DETAIL report group, the incre- 
menting that occurs when a GENEEIATE data-name 
statement is executed is repeated as many times as 
the data-name appears in the UPON phrase. 



The sum counter is set to zero during execution of 
the INITIATE statement. The types of stimming that 
occur depend on the identifiers in the clause and 
the time of summing depends on the Procedure 
Division statements executed: 

Subtotallng is adding an item that is not a sum 
counter to a sum counter. It occurs whenever a 
GENERATE or TERMINATE statement is executed. 

Crossfooting is adding a sum counter to 
itself. It occurs whenever a TERMINATE state- 
ment is executed or a CONTROL FOOTING report 
group is presented as the result of a control 
break. 

Rolling forward is adding a sum counter of a 
lower level CONTROL FOOTING report group to a 
sum counter of a higher level CONTROL FOOTING 



RESET Phrase 

The RESET phrase specifies the conditions under 
which the sum counter is set to zero. Data-name-3, 
which designates the break control level at which 
the sum counter is reset, must be one of the 
data-names specified in the CONTROL clause for the 
report. Data-name-3 must not be a lower level 
break control item than the associated break 
control item for the report group in which' the 
RESET phrase appears. 

If FINAL Is specified instead of data-name-3, it 
must also appear in the CONTROL clause for the 
report . 

When the RESET phrase is omitted, the sum counter 
is set to zero at the time the control footing is 
processed for the report group in which the sum 
counter is specified. 
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TYPE Clause 

The rXPE clause (figure 6-13) specifies the 
particular type of report group described by the 
entry and indicates the time at which the report 
group is to be presented. Each report must include 
at least one body group (CONTROL HEADING, DETAIL, 
or CONTROL FOOTING report group). 



TYPE IS 



( REPORT HEADING S 

Irh I 

( PAGE HEADING > 
IPH / 

( CONTROL HEADING ) 
ICH f 

( CONTROL FOOTING \ 
( PAGE FOOTING ) 
(REPORT FOOTING ) 



(data-name-1) 
I FINAL ) 



( data-name-2 ) 
> FINAL ) 



\RF 



7 



Figure 6-13. TYPE Clause Format 



REPORT HEADING, PAGE HEADING, CONTROL HEADING 
FINAL, CONTROL FOOTING FINAL, PAGE FOOTING, and 
REPORT FOOTING must not appear more than once in 
the description of a report. 

The PAGE HEADING and PAGE FOOTING report groups can 
only be specified in a report for which the PAGE 
clause is included in the corresponding Report 
Description entry. 

After each report group is processed and before the 
report group is written to the report file, the 
following occurs: 

The USE BEFORE REPORTING declarative procedure, 
if any, for the report group Is executed. 

If a SUPPRESS statement was executed or the 
report group is nonprintable (the report group 
has no LINE NUMBER clause), there is no further 
processing for the report group. 

The print line is formatted and written to the 
report file. 

In the clause the two-character keywords are 
abbreviations for the immediately preceding t3rpe. 



REPORT HEADING 

The REPORT HEADING phrase specifies a report group 
that is presented once per report, as the first 
report group. The report group is processed during 
execution of the chronologically first GENERATE 
statement for the report. 



PAGE HEADING 

The PAGE HEADING phrase specifies a report group 
that is presented as the first report group on each 
page of the report . The phrase is valid only when 
a PAGE clause appears in the RD entry. The page 



heading does not appear on a page designated to 
contain only a REPORT HEADING or a REPORT FOOTING 
report group. 

A SOURCE clause or a USE declarative statement for 
a PAGE HEADING report group cannot reference a 
break control item, an item containing or subordi- 
nate to it, or an item that redefines or renames 
any part of a break control Item. 



CONTROL HEADING 

The CONTROL HEADING phrase specifies a report group 
that is presented when a control break occurs. 
Several CONTROL HEADING report groups can be 
specified, each with a different data-name-1 or 
FINAL. 

FINAL specifies that the report group Is to be 
presented once per report, during execution of the 
first GENERATE statement for the report. Only one 
TYPE CONTROL HEADING FINAL clause can appear for a 
report. 

Data-name-1 specifies a break control item that is 
defined in a CONTROL clause. If a control break 
occurs during GENERATE statement execution, the 
CONTROL HEADING report groups are written, starting 
at the lowest level group and continuing through 
the group at which a control break occurred. The 
order of the data-names in the CONTROL clause 
establishes the relative high and low levels. 

A page advance, which includes the processing of 
PAGE FOOTING and PAGE HEADING report groups, occurs 
as needed before the CONTROL HEADING report group 
is presented. 



DETAIL 

The DETAIL phrase specifies a report group that is 
presented when a corresponding GENERATE statement 
is executed. A DETAIL report group is required if 
the GENERATE data-name statement is used; for a 
GENERATE report-name statement, a DETAIL report 
group is not required and no more than one can 
appear in the Report Description entry. 

When a DETAIL report group is processed, subtotal- 
Ing is performed as designated by the DETAIL report 
group. A GENERATE data-name statement also causes 
a report group to be presented as output for the 
report file, but a GENERATE report-name does not. 

A page advance, which Includes the processing of 
PAGE FOOTING and PAGE HEADING report groups, occurs 
as needed before the DETAIL report group is 
presented. 



CONTROL FOOTING 



The CONTROL FOOTING phrase specifies a report group 
that Is presented at the end of a control group for 
a designated data-name. If CONTROL FOOTING FINAL 
Is specified, the report group is presented once 
per report as the last body group of the report. 

Data-name-2 specifies a break control Item that Is 
defined in a CONTROL clause. 
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If a control break occurs during GENKRATE statement 
execution, the CONTROL FOOTING report groups are 
written, starting at the lowest level group and 
continuing through the group at which the control 
break occurred. The order of the data-names in the 
CONTROL clause establishes the relative high and 
low levels. 

A page advance, which includes the processing of 
PAGE FOOTING and PAGE HEADING report groups, occurs 
as needed before the CONTROL FOOTING report group 
Is presented. 

During processing of a CONTROL FOOTING report 
group, the sum counter is crossfooted and rolled 
forward. After the CONTROL FOOTING report group is 
presented, the sum counter is reset. The resetting 
of the sum counter takes place even if no control 
footing is defined for a given break control 
data-name . 

A SOURCE clause or a USE declarative statement for 
a CONTROL FOOTING report group cannot reference an 
item containing or subordinate to a break control 
item, or an item that redefines or renames any part 
of a break control Item. 



PAGE FOOTING 

The PAGE FOOTING phrase specifies a report group 
that Is presented as the last report group on each 
page, except a page designated to contain only a 
REPORT HEADING report group or only a REPORT 
FOOTING report group. The phrase is valid only 
when a PAGE clause appears in the RD entry. When a 
PAGE FOOTING report group is presented on a page 
that contains a REPORT FOOTING report group, it is 
the second last report group on the page. 

A SOURCE clause or a USE declarative statement for 
a PAGE FOOTING report group cannot reference a 
break control item, an item containing or subordi- 
nate to it, or an item that redefines or renames 
any part of a break control item. 



REPORT FOOTING 



VALUE Clause 

The VALUE clause (figure 6-15) defines the value 
of a constant for a printable item. The clause 
is format 1 of the VALUE clause discussed in 
section 4, Data Division. Information in section 4 
also applies to the VALUE clause used in a Report. 
Group Description entry. 



VALUE IS literal 



Figure 6-15. VALUE Clause Format 



The value of literal is used each time its report 
group is printed, subject to the qualifications of 
a GROUP INDICATE clause also present for the entry. 



REPORT WRITER STATEMENTS 

Report Writer statements In the Procedure Division 
generate the report file. Only Report Writer 
statements and OPEN and CLOSE can reference the 
report file. 

Before any Report Writer statanent is executed, the 
report file must be opened by an OPEN statement 
with an OUTPUT or EXTEND phrase. After all Report 
Writer statements, the report file should be closed 
by a CLOSE statement without either the KEEL or 
UNIT phrase. 



GENERATE STATEMENT 

The GENERATE statement (figure 6-16) directs the 
Report Writer to produce a report to the specifi- 
cations of the corresponding RD entry. Depending 
on the element in the statement, either a summary 
report or a single DETAIL report group is proc- 
essed. The GENERATE statement must appear between 
an INITIATE statement and a TERMINATE statement. 



The REPORT FOOTING phrase specifies a report group 
that is presented once for each report, as the last 
report group of the report. The REPORT FOOTING 
report group is presented during the execution of a 
corresponding TERMINATE statement If at least one 
GENERATE statement was executed for the report. 

A SOURCE clause or a USE declarative statement for 
a REPORT FOOTING report group cannot reference an 
Item containing or subordinate to a break control 
item or an item that redefines or renames any part 
of a break control Item. 



USAGE Clause 

The USAGE clause (figure 6-14) is documentary only 
In a Report Group Description entry. 



[ USAGE IS] DISPLAY 



_^.„.„,.,._ (data-name \ 
GENERATE ^report-name/ 



Figure 6-14. USAGE Clause Format 



Figure 6-16. GENERATE Statement Format 

The first GENERATE statement executed for a report 
saves the report's break control item values; 
subsequent GENERATE statements cause a check for 
a control break. When a control break occurs, 
control processing occurs and the new break control 
item values are saved to check for subsequent 
control breaks. 

The first GENERATE statement for a given report 
processes report groups in the following order, 
when applicable: 

1. REPORT HEADING report group 

2. PAGE HEADING report group 

3. CONTROL HEADING report groups 

4. DETAIL report group 



60497100 J 



6-11 



Subsequent GENERATE statements cause a check for 
control break, when applicable: 

CONTROL FOOTING USE procedures and CONTROL 
FOOTING SOURCE clauses access the break control 
item values. 

CONTROL FOOTING report groups then are proc- 
essed in the order of low level to high level, 
ending with the level at which the control 
break occurred. 

CONTROL HEADING report groups are processed in 
the order of high level to low level, beginning 
with the level at which a control break 
occurred . 



If GENERATE data-name is specified, the DETAIL 
report group is also presented as required. 

The item specified in the GENERATE statement 
determines whether an entire report or a single 
report group is to be written to the report file: 

Report-name 

Names a report for which summary processing 
is to be performed. Report-name can be 
specified if the corresponding RD entry 
contains all of the following: 

A CONTROL clause 

Not more than one DETAIL report group 

At least one body group 

Data-name 

Names a DETAIL report group. The data-name 
can be qualified by a report-name. 



During summary processing, no DETAIL report groups 

are written to the report file, but subtotallng is 
performed if designated by an associated DETAIL 
report group. 

During DETAIL processing. Report Writer performs 

all processing of all other report groups, when 
applicable. 



INITIATE STATEMENT 

The INITIATE statement (figure 6-17) Initializes 
each report named. These functions are performed: 

All sum counters are set to zero. 

The special register LINE-COUNTER is set to 
zero. 

The special register PAGE-COUNTER is set to 1. 



The INITIATE statement must be preceded by an OPEN 
statement, with either an OOTPui or EXTEND phrase, 
that references the file associated with the report. 



In the statement, each report-name specifies a 
report defined by a Report Description entry. 



A subsequent INITIATE statement must not be 
executed for a given report-name unless an inter- 
vening TERMINATE statement executes. 



SUPPRESS STATEMENT 

The SUPPRESS statement (figure 6-18) inhibits the 
presentation of a report group. It can only appear 
in a USE BEFORE REPORTING procedure, and must 
appear in the USE procedure that names the report 
group for which suppression is to be performed. 



SUPPRESS PRINTING 



Figure 6-18. SUPPRESS Statement Format 



The SUPPRESS statement inhibits the following 
report group functions: 

Presentation of the print lines of the report 
group 

Processing of all LINE clauses in the report 
group 

Processing of the NEXT GROUP clause in the 
report group 

Adjustment of the special register LINE-COUNTER 



TERMINATE STATEMENT 

The TERMINATE statement (figure 6-19) completes 
processing of the specified reports. During 
termination processing, report groups for each 
report are presented as specified with automatic 
page advancing and presentation of the PAGE HEADING 
and PAGE FOOTING report groups as required. The 
TERMINATE statement must be executed for each 
report that is initialized by the INITIATE 
statement . 



TERMINATE report-name-1 t, report-name-2] . 



Figure 6-19. TERMINATE Statement Format 



INITIATE report-name-1 [, report-name-2] 



Figure 6-17. INITIATE Statement Format 



The TERMINATE statement does not close the file. A 
CLOSE statement must be Isstied for the file after 
each report in an initiated condition is named in a 
TERMINATE statement. 

In the statement, each report-name names a report 
for which termination processing is to be executed. 
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If a GENERATE statement was executed for a report 
during the interval between the execution of an 
INITIATE statement and a TEBMINATE statement, the 
following report groups are presented In the order 
shown: 

1 . CONTROL FOOTING report groups , in the order of 
low level to high level, using the prior set of 
control values as though a control break 
occurred 

2. PAGE FOOTING report group 

3. REPORT FOOTING report group, using prior 
control values as though a control break 
occurred 



USE BEFORE REPORTING DECLARATIVE 

The USE BEFORE REPORTING declarative (figure 6-20) 
specifies Procedure Division statements that are to 
be executed Just before a report group is written 
to the report file. The USE BEFORE REPORTING 
procedure is executed Just before any spacing 
associated with the report group is completed. 



USE BEFORE REPORTING identifier. 



Figure 6-20. USE BEFORE REPORTING 
Declarative Format 



In the declarative, identifier specifies the 
data-name of a report group for which the USE 
BEFORE REPORTING procedure is to be executed. The 
TYPE clause defines the report group. A report 
group cannot appear in more than one USE BEFORE 
REPORTING procedure. 

The USE BEFORE REPORTING procedure cannot contain a 
GENERATE, INITIATE, or TERMINATE statement, or any 
statement that alters the value of any break 
control item associated with the report containing 
the corresponding report group. In the procedure, 
statements must not reference a group data item 
that contains or is subordinate to a break control 
item, and must not reference an item that redefines 
or renames any part of a break control item. 

See the USE statement with the Procedure Division 
for additional Information about declaratives. 
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SORT/MERGE FACILITY 



The Sort/Merge facility sorts or merges records 
according to a set of keys contained within those 
records. The sort operation orders one or more 
files; the merge operation combines two or more 
identically ordered files. 

Records to be sorted can originate in one of two 
ways: 

When the USING phrase of the SORT statement is 
specified, the records to be sorted must reside 
in the files named in the phrase. All records 
in the files are sorted. Each file must be 
described In an FD entry in the File Section. 
The SD entry in the File Section redescribes 
the records such that the sort keys are 
identified. 

When the INPUT PROCEDURE phrase of the SORT 
statement is specified, the program must 
contain an input procedure that identifies each 
individual record to be sorted. In this case, 
an Input file, as such, does not exist. Only 
records referenced In a RELEASE statement 
within an input procedure are processed by the 
SORT statement. The input procedure in the 
program obtains records from external files or 
otherwise creates the records individually. 
Each record referenced in a RELEASE statement 
is accumulated by the sort routines until the 
procedure Is completed; the sort then occurs. 
The SD entry associates a Record Description 
with a particular SORT statement and identifies 
the keys for the sort. 

Records to be merged must reside in files. 

Results of a sort or merge can be returned to the 
program in one of two ways: 

When the GIVING phrase of a SORT or MERGE 
statement is specified, the sorted or merged 
records exist as an output file. This file 
must be described In an FD entry in the File 
Section. 

When the OUTPUT PROCEDURE phrase of the SORT or 
MERGE statement is specified, the system trans- 
fers control to an output procedure within the 
program at the conclusion of the sort or merge 
operation. One ordered record is released to 
the procedure each time a RETURN statement 
executes. The program Is then responsible for 
writing the record to a file or otherwise 
processing or preserving the ordered records. 

The sort or merge operation uses the record 
description in the SD entry of the File Section to 
determine the size of records to be sorted and the 
location of keys within each record. 

The following Procedure Division statements are 
involved with sort and merge operations: 



SORT 

Order records 
MERGE 

Combine records trom ordered files 

RELEASE 

Transfer individual record to initial phase 
of sort 

RETURN 

Obtain individual record from final phase 
of sort or merge 

COBOL 5 can interface with Sort/Merge In two ways: 

Writing the SORT or MERGE instructions in COBOL 
syntax as part of the COBOL program, as 
described In this section. 

Calling Sort/Merge 5 directly from a COBOL 5 
program using the ENTER statement. See section 
11 for details on the usage of the ENTER 
statement. 

During the execution of a SORT or MERGE i^tateuient, 
d bluck of central -nfinory is allocated tor Lho sort 
or merge operation. The default size of this block 
is yilbjo words. Generally, the default size is 
sufficient; however, more tsfticiency can be 
achieved by Increasing the memory nize tor large 
aorL/'merj^e operations. I'o regul.ite the memory 
size, the following statement must be executed: 

EN'lER "C.SORTP" USING il, mit-aq. 

The Tiemory size specitiod by £1 Ls used tor all 
subsequent sort/merge operations. Ini t-sq applies 
to subsuqucnL viort jperations; it indicat>is whutrier 
initial sequence is maintJ Lned lor duplicate sort 
keys. It init-sq is omiLtwi or is zero, initial 
sequence Is nuL m.iintrilned; if a value other than 
ZL-ro Is spt'clLled, nitial boquence Is maintained. 
If only the init-sq is Lo be changed, the default 
size Ctl; must oe ipeclried. When the hNTjiR 
"C.SOKTP" statement i:i not used, duplicate values 
lor all son keys 'ire returned in thu inlLlal 
sequoiiCL". Both 11 .ind iiit-sq ausl Dt l.OMP-1 items. 



SORT-MERGE 
DESCRIPTION ENTRY 

The Sort-Merge Description entry in the File 
Section identifies the records to be sorted or 
merged. The following Record Description entry 
describes the size of the records and identifies 
the key or keys to be used during the sort or merge. 
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The Sort-Merge Description entry itself (figure 7-1) 
begins with the level indicator SD, File-name, 
which mist immediately follow SD, associates the 
entry with a particular SORT or MERGE statement. 
Only Sort/Merge Procedure Division statements can 
reference file-name. 



The file-name used in the SD entry must be named in 
the Environment Division in a FILE-CONTROL para- 
graph SELECT clause. The SELECT clause and the 
ASSIGN clause are the only ones allowed in the 
paragraph. If the memory area is to be shared by 
different files during sort or merge processing, 
the I-0-CONTROL paragraph must be included in the 
Environment Division. 



The two clauses of the SD entry are optional and 
can appear in any order. RECORD CONTAINS is 
redundant, since the following Record Description 
entries establish actual record size. DATA RECORDS 
is documentary only. See the File Description entry 
in the Data Division for more clause information. 



Record Description entries that follow the SD entry 
establish the maximum size of records to be proc- 
essed. Record length should correspond to the size 
of the largest record to be processed; the system 
truncates any records found to exceed the size 
specified. Minimum record size for fixed length 
records (RT=F) to be merged should be 10 char- 
acters. Smaller records result in one extra record 
at the end of the output file for each input file 
merged. When more than one Record Description 
entry follows a given SD entry, all records occupy 
the same record area but the entry redefines the 
area. The record-name in the Record Description 
entry establishes the location of the record 
referenced in any RELEASE or RETURN statement in an 
input procedure or output procedure. 



SORT STATEMENT 

The SORT statement (figure 7-2) causes records from 
an input procedure or input files to be sorted 
according to record descriptions in the associated 
SD entry. The statement can appear anywhere in the 
Procedure Division other than in the declaratives, 
in an input procedure, or in an output procedure. 

No more than one file of a multifile tape reel can 
be referenced in the statement. 

File-name-1 must be the same as file-name in an SD 
entry in the File Section of the Data Division. 

The order in which records are to be sequenced is 
established by the keywords ASCENDING and 
DESCENDING. 

ASCENDING 

Sort order is from the lowest value of the 
key data-name to the highest value. 

DESCENDING 

Sort order is from the highest value of the 
key data-name to the lowest value. 

Values are ordered in accordance with the rules for 
comparison of operands in a relation condition, as 
discussed in section 1. The LBZ control card 
parameter does not affect the treatment of leading 
blanks in numeric fields used as keys during the 
sort process. Such blanks will still be in error. 

The keys on which the records are to be sequenced 
are specified by the data-names in the statement. 
The first data-name specified is the most signi- 
ficant and the last data-name specified is the 
least significant, with data-names ordered by 
significance between the first and last. 



SORT/MERGE STATEMENTS 

The Sort/Merge statements in the Procedure Division 
are as follows. See section 8, Memory Management, 
for information about SORT and MERGE statements in 
segmented programs. 



Key data-names can be qualified. Each data Item 
identified must be described in at least one record 
of the associated SD entry. The data items must be 
fixed length; they cannot contain an OCCURS clause 
or be subordinate to an entry that contains an 
OCCURS clause. The data items cannot be described 
with a USAGE clause specifying COMP-4. The data 
items cannot be boolean items. 



SD file-name 



i CONTAINS [lnteger-1 TO] int8ger-2 CHARACTERS 
IS VARYING IN SIZE [[FROM integer-3] 
[TO integer^] CHARACTERS] 
[ DEPENDING ON data-name-1 ] 

r r,-^. ( RECORD IS ) "I 

; DATA ^RECORDS ARE/ data-name-1 [, data-name-2] ... 



Figure 7-1. SD Entry Format 
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( DESCENDING t 
SORT file-name-1 ON (ASCENDING I ^^^ data-name-1 [, clata-name-2] 

f-.. ( DESCENDING ) ._,,_, „, ^ ,, 1 

^^ j ASCENDING | ^^^ data-nanie-3 [, data-nanie-4] ... 



[COLLATING SEQUENCE IS alphabet-name] 



[i 



THRU 



I INPUT PROCEDURE IS section-name-1 | y THROUGH ) section-name- 
[ USING file-naine-2 [, flle-name-3] . . 

\ OUTPUT PROCEDURE IS section-name-3 | THROUGH ) sectlon-name-4 I 
GIVING flle-name-4 



Figure 7-2. SORT Statement Format 



When records have the same values for all keys on 
which the records are being sequenced, the records 
are sequenced in the order that they were released 
to the sort operation. This initial sequence 
option requires 10 extra characters per record, 
which can be a significant amount of overhead, if 
initial sequence is not needed, the C.SORTF routiiie 
should be entered »ith the init-sq parameter 
omitted to remove this option and reduce the 
overhead . 

NOTE 

Refer to appendix F for recommendations on 
the use of the SORT statement. 



DUPLICATES Phrase 

The DUPLICATES phrase provides compatibility with 
future ANSI Standards, and is doctmientary only. 



COLLATING SEQUENCE Phrase 

The alphabet-name specifies the collating sequence 
that is used Ln the comparisons of nonnumeiic key 
data items. However, execution of a SET stdCeiaenL 
with a SORT or SORT-MERGE COLLATING SEQUENCE phrase 
prior to execution of the SORT statement causes the 
collating sequence of the SET statement to override 
the collating sequence specified in the SORT 
statement . 

Alphabet-name must be defined in an ALPHABET clause 
in the SPECIAL-NAMES paragraph of the Environment 
Division. 

If the COLLATING SEQUENCE phrase is not specified 
and the collating sequence is not established by a 
SET statement prior to execution of the SORT state- 
ment, the collating sequence used for the sort is 
determined by the COLLATING SEQUENCE clause of the 
OBJECT-COMPUTER paragraph in the Environment 
Division. 



INPUT PROCEDURE Phrase 

The INPUT PROCEDURE phrase specifies the procedure 
that is to be executed under system control at the 
time the SORT statement is executed. Control 
passes to the input procedure through the SORT 
statement; the input procedure must not be entered 
directly. The procedure can include statements 
needed to select, create, or modify records; it 
must Include the execution of a RELEASE statement 
for each record to be passed to the initial phase 
of a sort operation. 

The input procedure must Include one or more 
sections. Sect ion-name- 1 is the first or only 
section name. If more than one section is in- 
cluded, the sections must appear contiguously in 
the program and section-name-2 must specify the 
last section of the input procedure. The sections 
of the input procedure must not form part of any 
output procedure. 

The input procedure must not Include the execution 
of a SORT statement, a MERGE statement, or an ALTER 
statement that refers to a procedure outside the 
input procedure. A GO TO or PERFORM which 
transfers l^fi^KJtrol outside the input procedure is 
allowed, as well as statements that implicitly 
transfer control to declaratives. 



USING Phrase 

The USING phrase specifies the names of the files 
that are to be sorted. These files are used as 
input and are sorted according to the descriptions 
in the SD entry describing ftle-name-1. If file- 
name-2 and file-name-3 are both specified, these 
files are, in effect, concatenated and treated as a 
single file; the result is one sorted file (file- 
name-4). File-name-2 and file-name-3 must be 
identified in FD entries in the File Section of the 
Data Division. The associated SELECT clause In the 
FILE-CONTROL paragraph of the Environment Division 
can specify a file with sequential organization 'iif''. 
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The input files must not be in open mode at the 
time the SORT statement is executed. The USING 
phrase of the SORT statement causes the following 
actions to be taken for each named input file: 

Initiation of the file is performed as if an 
OPEN statement with the INPUT phrase were 
executed . 

Each record is obtained and released to the 
sort operation as if a READ statement with the 
NEXT and the AT END phrases were executed. 

Termination is performed as If a CLOSE state- 
ment without optional phrases were executed. 



Any USE procedures associated with these functions 
are executed in the normal manner. 

An attempt to write beyond the boundaries of the 
output file for which no USE AFTER ERROR declar- 
ative is specified or from which control was 
returned from a USE AFTER ERROR declarative 
procedure causes the file to be terminated as if 
a CLOSE statement without optional phrases were 
executed. 

The output file must not be manipulated by 
statements in an input procedure or USE AFTER ERROR 
declarative procedure. 



Any USE procedures associated with these functions 
are executed in the normal manner. 

Input files named in the USING phrase must not be 
referenced by statements in the output procedure or 
a USE AFTER ERROR declarative procedure. 



GIVING Phrase 

The GIVING phrase specifies the output file to hold 
sorted records. File-name-4 names the output file, 
which must be described in an FD entry in the File 
Section of the Data Division with a record size 
equal to the size specified for the records sorted. 

The FILE-CONTROL paragraph entry in the Environment 
Division must specify an actual-key, indexed, 
relative, or sequential file organization. If 
file-name-4 references an indexed file, then 
data-name-1 must be associated with the ASCENDING 
phrase and must be the primary key for that file. 

The output file must not be in open mode at the 
time the SORT statement is executed. The GIVING 
phrase of the SORT statement causes the following 
actions to be taken for the output file: 



OUTPUT PROCEDURE Phrase 

The OUTPUT PROCEDURE phrase specifies the procedure 
that is to be executed under system control after 
records have been sorted. Control passes to the 
output procedure through the SORT statement; the 
output procedure must not be entered directly. The 
procedure can include statements needed to select , 
modify, or copy records; it must include the execu- 
tion of a RETURN statement for each record to be 
obtained from the final phase of the sort operation. 

The output procedure must include one or more 
sections. Sectlon-name-3 is the first or only 
section name. If more than one section is included, 
the sections must appear contiguously in the pro- 
gram and section-name-4 must specify the last 
section of the output procedure. The sections of 
the output procedure must not form part of any 
input procedure. 

The output procedure must not include the execution 
of a SORT statement, a MERGE statement, or an ALTER 
statement that refers to a procedure outside the 
output procedure. A GO TO or I'KRFORM wli.cii Lrjiid- 
fers control outside the output procedure ;.s 
allowed, as well as statements that implicitly 
Lransier control to declaratives. 



Initialization of the file is performed as if 
an OPEN statement with the OUTPUT phrase were 
executed . 

Each sorted record is returned and written to 
the output file as if a WRITE statement without 
optional phrases were executed. 

Termination of the file is performed as if a 
CLOSE statement without optional phrases were 
executed . 



MERGE STATEMENT 

The MERGE statement (figure 7-3) combines two or 
more identically sequenced sequential files on a 
set of specified keys and makes the merged records 
available to either an output procedure or an 
output file. The statement can appear anywhere in 
the Procedure Division other than in the Declara- 
tives section, an input procedure, or an output 
procedure . 



( DESCEMDING ) 
MERGE file-name-t ON \ ASCENDING | ^^^ data-name-l [, data-name-2] . . . 

r„ ( DESCENDING ) 1 

ON ■(ASCENDING I ^^"^ data-name-3 [, data-name-41 . . . [ ... 

[COLLATING SEQUENCE IS alphabet-name] 
USING file-name-2, fife-name-3 [, file-name-4I . . . 

OUTPUT PROCEDURE IS section-name- 1 [{ THROUGH j section-name-2j ( 
GIVING file-name-5 " ) 



Figure 7-3. MERGE Statement Format 
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File name-1 must be described In an SD entry in the 
File Section of the Data Division. 



Only one file from a multifile reel can be 
referenced in a given MERGE statement, and no file 
can be named in a MERGE statement more than once. 



The order in which records are merged is 
established by the keywords ASCENDING and 
DESCENDING. If the specification conflicts with 
the sequenced order of the input files, the result 
of the merge operation is undefined. 



ASCENDING 

Input files are ordered from the lowest key 
data-name values to the highest values. 



DESCENDING 



USING Phrase 

The USING phrase specifies the names of the files 
to be merged. File-name-2 and file-name-3 are used 
as input files for the merge operation. These 
files must be described in FD entries in the Data 
Division, must have sequential organization, and 
must have records that are equal to the size of the 
records specified In the SD entry describing 
flle-name-1. The records of these files must be 
ordered according to the keys specified in the 
MERGE statement; otherwise, the order of the 
records in the resultant file is undefined and a 
diagnostic Is written to the dayflle. 

The input files must not be in open mode at the 
time the MERGE statement is executed. The USING 
phrase of the MERGE statement causes the following 
actions to be taken for each named input file: 

Initiation of the file Is performed as If an 
OPEN statement with the INPUT phrase were 
executed. 



Files are ordered from high values to low 
values of the key data-name. 



During the merge operation, the values are ordered 
in accordance with the rules for comparison of 
operands in a relation condition. 



The keys on which the input files are sequenced are 

specified by data-name. The data -names specify the 

keys and their significance, with the first key 

specified being the most significant key and the 

last key the least significant key. If the 

specification conflicts with the sequences of the 
input files, the result of the merge operation is 
undefined. 



Key data-names can be qualified. Each data Item 
identified must be described In at least one record 
of the associated SD entry. The data items must be 
fixed length; they cannot contain an OCCURS clause 
or be subordinate to an entry that contains an 
OCCURS clause. The data items cannot be described 
with a USAGE clause specifying COMP-4. The data 
items cannot be boolean items. 



COLLATING SEQUENCE Phrase 

The alphabet-name specifies the collating sequence 
that is used in the comparison of nonnumeric key 
data items. However, execution of a SET statement 
with a MERGE or SORT-MERGE COLLATING SEQUENCE 
phrase prior to execution of the MERGE statement 
causes the collating sequence of the SET statement 
to override the collating sequence In the MERGE 
statement. The alphabet-name must be defined in an 
AUHABET clause lii the SPECIAL-NAMES paragraph of 
the Environment Division, 




statement, the collating sequence used for the 

merge is determined by the COLLATING SEQUENCE 

clause of the OBJECT-COMPUTER paragraph in the 
Environment Division. 



Each record is obtained and released to the 
merge operation as if a READ statement with the 
NEXT and the AT END phrases were executed. 

Termination is performed as if a CLOSE state- 
ment without optional phrases were executed. 

Any USE procedures associated with these functions 
are executed In the normal manner. 

The input files named In the USING phrase must 
not be referenced by statements in either an 
output procedure or a USE AFTER ERROR declarative 
procedure . 



OUTPUT PROCEDURE Phrase 

The OUTPUT PROCEDURE phrase specifies the procedure 
that is to be executed under system control after 
records have been merged. Control passes to the 
output procedure through the MERGE statement; the 
output procedure must not be entered directly. 
The procedure can include statements that select, 
modify, or copy records as they are returned in 
their merged order; it must include the execu- 
tion of a RETURN statement for each record to 
be obtained from the final phase of the merge 
operation. 

The output procedure must include one or more 
sections. Sectlon-name-3 is the first or only 
section name. If more than one section is included, 
the sections must appear contiguously in the pro- 
gram and section-name-2 must specify the last 
section within the output procedure. The sections 
of the output procedure must not form part of any 
other input or output procedure. 

The output procedure must not Include the execution 
of a SORT statement, a MERGE statement, or an ALTER 
statement that refers to a procedure outside the 
output procedure. ?i^|^SP|^^^|g^^^ap^|^^^^i 

ftH(W«4> as well as statements that Implicitly 
transfer control to declaratives. 

Once the OUTPUT PROCEDURE has completed execution, 
control returns to the statement following the 
MERGE statement. 
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GIVING Phrase 

The GIVING phrase specifies the file to which 
all the ordered records from the merge file are 
written. File-name-5 names the output file, which 
must be described in an FD entry in the File 
Section of the Data Division with a record size 
equal to the size specified for the records in the 
SD entry. 

File-name-5 can specify a file with indexed, 
actual-key, sequential or relative file organi- 
zation. When the output file has indexed organiza- 
tion, data-name-1 must specify the primary key and 
the MERGE statement must specify ASCENDING, 

The output file must not be in open mode at the 
time the MERGE statement Is executed. The GIVING 
phrase of the MERGE statement causes the following 
actions to be taken for the output file: 

Inltlaillzation of the file is performed as If 
an OPEN statement with the OUTPUT phrase were 
executed. 

Each merged record is returned and written onto 
the output file as If a WRITE statement without 
optional phrases were executed. 

Termination of the file is performed as if a 
CLOSE statement without optional phrases were 
executed. 

Any USE procedures associated with these functions 
are executed in the normal manner. 

An attempt to write beyond the boundaries of the 
output file for which no USE AFTER ERROR declara- 
tive procedure is specified or from which control 
was returned causes the file to terminate as if a 
CLOSE statement without optional phrases were 
executed. 

The output file must not be manipulated by state- 
ments In an output procedure or a USE AFTER ERROR 
declarative procedure. 



RELEASE STATEMENT 

The RELEASE statement (figure 7-4) transfers 
records to the initial phase of a sort operation. 
It must be specified within the range of an input 
procedure associated with a SORT statement. 



RELEASE record-name [FROM identifier] 



Figure 7-4. RELEASE Statement Format 



The record that is transferred by the RELEASE 
statement is not available in the record area of 
the associated SD entry after execution of the 
RELEASE statement, unless the SD entry file-name 
is named in a SAME RECORD AREA clause in the 
I-0-CONTROL paragraph of the Environment Division. 
Specification of the SAME RECORD AREA clause 
also makes the record available to other files 
referenced in the SAME RECORD AREA clause. 



In the statement, record-name must be the name of a 
record In the associated SD entry. The name can be 
qualified. 



The FROM phrase specifies that the contents of the 
storage area named by identifier is moved In 
accordance with the rules of the MOVE statement to 
the storage area named by record-name before the 
contents of record-name is released to the sort. 



The record released to the sort is not available in 
the record area of the SD entry after execution of 
the RELEASE statement unless the SAME RECORD AREA 
clause of the I-O-CONTROL paragraph is specified. 
In any case, the record is available in identifier 
after execution of the RELEASE statement. 



RETURN STATEMENT 

The RETURN statement (figure 7-5) obtains the next 
record in the order specified by the keys listed in 
either a SORT or a MERGE statement and makes the 
record available for processing in the record area 
associated with the SD entry. The statement must 
be specified within the range of an output proce- 
dure associated with either a SORT statement or a 
MERGE statement. 



RETURN file-name RECORD [ INTO identifier] 
; AT END imperative-statement 



Figure 7-5. RETURN Statement Format 



Because the records of the SD entry can be of 
variable lengths, the contents of the current data 
record can be smaller than the record area allo- 
cated. The contents of any data Items which lie 
beyond the range of the current data record are 
undefined at the completion of the execution of the 
RETURN statement. 

The imperative-statement of AT END specifies the 
action to be taken after the last record is 
returned by either a sort or a merge operation. 

No RETURN statement can be executed within the 
current output procedure after execution of 
imperative-statement . 

The INTO phrase specifies that the current record 
is moved in accordance with the rules of the MOVE 
statement to the storage area named. Identifier 
names the storage area; it can be subscripted or 
Indexed. The identifier and the file-name must 
name different storage areas. 

The phrase can be used when the SD entry for the 
file is followed by one or more Record Description 
entries that specify fixed length or variable- 
length records. When more than one Record Descrip- 
tion entry exists for the file, however, the phrase 
cannot be used If any elementary level 01 record 
defines a numeric or numeric-edited item. 
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The COBOL compiler generates object code that needs 
further processing before it can be executed. The 
loader is the system program that places the object 
code Into memory and prepares it for execution. 

There are three ways In which the loader can place 
object code into memory. A basic load is one in 
which all of the object code is loaded into memory 
at the same time. Most programs are loaded in this 
manner because they are relatively small compared 
to the amount of available memory. However, when 
programs are too large to be efficiently loaded 
into central memory at one time, segmentation or 
Fast Dynamic Loader (FDL) processing can be used. 
Segmentation allows the user to divide the program 
into COBOL segments that are used as overlays. FDL 
processing uses overlay-capsules (OVCAPS) to maxi- 
mize efficiency. 

Memory can also be manipulated by allowing several 
files to share the same record area or by calling 
CMM routines from a COBOL program. This section 
describes the COBOL features available when using 
segmentation, FDL processing, shared record areas, 
and CMM routines. 



NOTE 

Refer to appendix F for recommendations on 
the use of segment numbers. 

Fixed segments are the portion of the object program 
that is logically treated as if it were always in 
memory. Two types of fixed segments exist; perma- 
nent and overlayable. The SEGMENT-LIMIT clause of 
the OBJECT-COMPUTER paragraph defines the segment- 
numbers that apply to each type of fixed segment. 

Fixed permanent segments cannot be overlaid 
by any other part of the program. Sections 
that must be available for reference at all 
times must be within fixed permanent segments. 
Ideally, all fixed segments are fixed permanent 
segments . 

Fixed overlayable segments can overlay and can 
be overlaid by another fixed overlayable seg- 
ment or an Independent segment. Fixed overlay- 
able segments are always made available in 
their last used state. 



THE SEGMENTATION FACILITY 
(OVERLAYS) 

Segmentation allows the relocatable binary output 
of source program compilation to be split into 
overlays, so that not all of the object program 
need be In memory at one time during execution. 
Segmentation is a feature defined by COBOL; the 
words segment and overlay are used here in their 
COBOL context. In the context of the operating 
system loader, segments and overlays have related, 
but not identical, meanings. The following discus- 
sion deals only with COBOL programs. 

Segmentation does not affect the logic of program 
execution. The logical sequence of statements in 
the Procedure Division Is the same as the physical 
sequence, except for specific transfers of con- 
trol. Control can be transferred to any paragraph 
in a section within any segment. Further, segmen- 
tation does not affect the need to uniquely qualify 
all program references. 

When segmentation is selected, the entire Procedure 
Division of the source program must be written as a 
consecutive grouping of sections. Each section 
must be designated as part of a specific segment 
through the segment-number in the section header. 
The segment-number specifies the type of the segment 
in addition to identifying a particular segment. 

The two types of segments are: 

Fixed segments, composed of sections with 
segment-numbers through 49. 

Independent segments, composed of sections with 
segment-numbers 50 through 99. 



Independent segments are the portion of the object 
program that can overlay, and can be overlaid by, 
other independent segments or fixed overlayable 
segments. An Independent segment is in its initial 
state whenever control is transferred to a section 
or paragraph within It as a result of a PERFORM, 
USE, SORT, MERGE, or GO TO statement in another 
segment and whenever control Is transferred implic- 
itly as a result of the execution of the last 
statement in the immediately preceding segment. 
Otherwise, an Independent segment is In its last 
used state. Figure 8-1 shows an example of a 
program structured with segmentation. 



Uhu.i BBHoYES is specified In Li.c ..SE cUu£>e of a 
Fi_e-Controi entry or in a FILE i.ontro- oLatement, 
the associated file must be opened ■■iid (.^ob^d 
withtn one segment; no other overia, obie ■segments 
can be called while the file Is opeii. 



If a subprogram is segmented, t> e progianr i.s not 
actually broken up into segments. The AL"£R state- 
ments 4fe caused to function properl> by I'lteinal 
methods; therefore, no advantage i.n mcmor> spate is 
gained and some is lost. For tris leasoi, segmen- 
tation should not be used in subpi ograms . 



When a subprogram is called by a literal from a 
fixed overlayable or Independent segment in the 
main program and the program-name is not in the FDL 
list of programs, the following steps must be taken: 

The subprogram must reside on a user library. 

The user library must be made available to the 
job before loading of the calling program. 
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ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

OBJECT-COMPUTER. CYBER SEGMENT-LIMIT IS 47. 



PROCEDURE DIVISION. 



AA1 SECTION 10. 



AA8 SECTION 46. 



AA9 SECTION 47. 



BB1 SECTION 49. 



CC1 SECTION 50. 



CC6 SECTION 99. 



Sections forming 

fixed permanent segment 



Sections forming 

fixed overlayable segment 



fixed segment 



overlays 



Sections forming 
independent segments 



Figure 8-1. Segmented Program Skeleton Example 



If these steps are taken, the subprogram is ini- 
tialized every time the overlay is loaded. If this 
is not desired, the subprogram must be loaded with 
the fixed permanent segments. This can be accom- 
plished either with an LDSET.USE control statement 
or through an unexecuted ENTER or CALL statement in 
any segment with a segment number less than that 
specified In the SEGMENT-LIMIT clause. 



SEGMENT-LrMIT CLAUSE 

The SEGMENT-LIMIT clause (figure 8-2) in the OBJECT- 
COMPUTER paragraph establishes the range of numbers 
valid for the two types of fixed segments . 



SEGMENT-LIMIT IS segment-number 



Figure 8-2. SEGMENT-LIMIT Clause Format 

The segment-number must have an unsigned Integer 
value of 1 through 49. It specifies the lowest 
numbered segment that is to be considered as a 
fixed overlayable segment. Segments numbered with 
values less than the segment-number in the clause 
are considered as fixed permanent segments. 

If the SECMENT-LIMIT clause is omitted, segment 
numbers through 49 are considered as fixed perma- 
nent segments. 



PROCEDURE DIVISION CODING 

The Procedure Division must be organized in sec- 
tions when the division is segmented. Procedures 
referenced in particular statements within the 
division are restricted in location. 



Section Header 

Sections in the Procedure Division are assigned to 
a given segment by the section header (figure 8-3). 
All sections with the same segment-number become 
part of the same segment. 



section-name SECTION [segment-number] 



Figure 8-3. Section Header Format 

Each section-name must be a user-defined word. The 
segment -number must be an integer through 99; if 
omitted, is assumed. More than one section can 
have the same segment-nianber assigned. 

The segment-number for a given section should be 
assigned according to section use in the program: 

Sections that frequently communicate with one 
another should have the same segment -nvmiber. 



Sections referred to more frequently should 
have lower segment numbers than sections re- 
ferred to less frequently. 



Sections that must be available for reference 
at all times should be within a fixed permanent 
segment . 



Sections referred to very frequently should be 
within a fixed permanent segment. 

Declarative sections must contain segment-numbers 
less than 50. 
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ALTER Statements 

The following restriction applies to segmentation 
of programs that contain ALTER statements : if the 
paragraph of procedure-name-2 is In a section with 
a segment-number 50 through 99, the ALTER statement 
must be in a section with the same segment-number. 

All other uses of ALTER are valid, even if the 
procedure to be altered Is in a fixed overlayable 
segment • 

Modified GO TO statements in independent segments 
might be returned to their Initial states, as noted 
above for independent segments. 

NOTE 

Because of anticipated changes in this 
product, use of the ALTER statement is not 
recommended. For guidelines, see appen- 
dix F. 



PERFORM Statements 

The following restrictions apply to segmentation of 
programs that contain PERFORM statements: 

If a PERFORM statement appears in a section 
that is not in an independent segment, it can 
have within its range, in addition to any 
Declarative sections whose execution is caused 
within that range, only one of the following: 

Sections and/or paragraphs wholly contained 
in one or more nonlndependent segments . 

Sections and/or paragraphs wholly contained 
in a single independent segment. 

If a PERFORM statement appears in an independent 
segment, it can have within Its range, in addi- 
tion to any Declarative sections whose execution 
Is caused within that range, only one of the 
following; 

Sections and/or paragraphs wholly contained 
in one or more nonlndependent segments. 

Sections and/or paragraphs wholly contained 
in the same independent segment as that 
PERFORM statement. 



SORT and MERGE Statements 

The following restrictions apply to segmentation of 
programs that contain SORT statements or MERGE 
statements: 

If a SORT or MERGE statement appears in a sec- 
tion that is not in an Independent segment , any 
input procedure or output procedure referenced 
by the statement must appear either wholly 
within nonlndependent segments or wholly within 
a single Independent segment. 

If a SORT or MERGE statement appears in an 
independent segment, any input procedure or 
output procedure referenced by the statement 
must be contained either wholly within non- 
independent segments or wholly within the same 
Independent segment as the statement. 



Input procedures and output procedures must not 
transfer control to another segment. 



FAST DYNAMIC LOADER 
PROCESSING (OVCAPS) 

The fast Dynamic Loading (FDL) capability allows an 
overlayed COBOL program to load spp.- tally processed 
relocatable code (called OVCAPS or overlay-capsules ; 
durlrvg program execution. 

FDL FILE CREATION 

The FDL file must be created before FDL process Lng 
can occur. This file passes ::if urmat ion tu the 
COBOL 5 compiler to initiato FDL proc^-'ssi.ig . 

Tlie FDL file indicates v.lieLhi.-r i subprogL-.-ir. is 
etatic or dynamic. A static subpiogrom ib loaded 
with the base modi.12. A dynaici-- subprogram Is 
loaded by the FDL facLLity who': j CALL st itemt-nt 
for that subprogram is exscutsd. 

The FDL file consisL.-s of line iaages wi [ ii mif 
statement per li.ie -.iTiags;. E,>ch :,LjLemcnL bt-glns in 
column 1; sep-iraCor'^ sn- ,i.= ce'-'-.Ufd for COBOL. 
Only the first 72 co'amr.,-; jt" i:aih Ht.iti'raeiit ^re 
examined. A st.\t<.mt.>nt -hi, but nt-oJ ii'.)C, hf tL-rmi- 
nated by a sefa'-ator pi-.rio<l. A i:ommor.r ..in fo'iLiW 
a statement on t.ie u mi; 'inc Lf -lie h;-.itumonL is 
teroiinated by a pcrioc. 



PROGRAM EQUIVALENCE SECTION 

The FDL file consl-its of tlit- Progrdm ETuiva.once 
section only. Tnis sei-tion apccifit-s -iny J>iiaraic 
subprograms. The Progrim Equiv.iler.ee s^ct^on 
header can also be used to equfitt -i I -ir.g program 
name with a shorltT progr.:r n.iine t ious than oig'rit 
characters) rog.ird" i.-ss .-f wl.etlier .k nc-L Jyrianic 
subprograms are involved. 

Tlie Program Equiv-iionce hpctior. ' -i cocposn.'. 'if a 
section header f.iilowcd by .my -.iimibfr ol pnnjram 
equivalence stnLcmfr.rs. The section ln-.-idcr is: 

PROGRAM EQUIVALEKCE 



The header must appear as a SL-p.ir^ti' ". ine iirage, 
beginning tn coluitn i, .m.: ..n be ti.-r.ti; n.;ted hy a 
separator period. 

The Program Equi Viiiyii-O s.-v:! i in c.)'it.i; is .-i '.cries 

of ntateoients fnnr equate ,-»r.if!-.ira '.■imi?s wi'.'.i inLer- 

nal system narai'S av.d i-.di.:.itp the pr.j^raraH rn he 
statically or dy.ia-Lcally '.o.ided. 



All program .-qui tf.Tlenci.' sl iliirnfiiLs 
header. The format '.f .i Bt.-itiim>"r i.t: 



'iw Llie 



program- narai.' 



L:-.te r:.al - -Mmf . L S l.^"^ LC j 



Program-name is fie n>jmc used in a CALL bt.iti::noiit 
and CANCEL statement, and It t'.e H:iOC:RAv-LU p.i-,i- 
graph of the aubiTograr. ; it !:jn bo up In JO ..-li.irJic- 
ters in Length. T-.iter;inl -narat= Jorint-"! Lin- i.ir.e to 
be used iotero;illy by the syst-'ir.. Lt miriL hi: seven | 
characters or Les-. and laust oe unique within the \ 
run uni t • \ 
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Internal -name is iis<?d jb the entry point jnd proRram 
name (loader name) for any progran with .1 matchins 
PROGKAM-ID and as the external symbol for the: 
matching CA!,1. statement find CANCEL statement. 

Static subprograms need not be specified in the 
Program Kquivalem-w section. If the secrioT is 
used, STATIC indicates that the subprogram i.s to be 
loaded with the base modulo. It STATIC is noL 
specified, the program is Lo be dynamically loaded 
using ¥TS\. processing. Ail dynamic programf. must be 
specified in llie Program Equivalence sec Lion of Lhe 
FDL file. Tnitially all proRram.? in the run unit 
must be compLleil in a single 'jt .ick.-.d compilation in 
the following order: 



I. 



Main prog 'am 



2. Static subprograms 

3. Dynamic sub;>rograms 

However, programs can be listed In <iny irder in tlie 
FDL fi Ic. 

INTER-PROGRAM COMMUNICATION 

The COBOL CALL and CANCEL statements cause an FDL 
subroutine to load and unload an overlay-capsule 
during program execution. 

CALL Statement 

The CALL statement (figure 8-4) transfers control 
to a COBOL subprogram. (Use the ENTER statement to 
transfer control to subprograms that are not writ- 
ten in COBOL. If the CALL statement is used for a 
FORTRAN subprogram, mode errors could occur.) 



( identifier ) 



I USING data-name-l [, data-name-2] . 
[; ON OVERFLOW imperative-statement] 



] 



Figure 8-4. CALL Statement Format 

The program in which the CALL statement appears is 
the calling program; the program referenced in the 
CALL statement is the called program. Called 
programs can contain CALL statements; however, a 
called program must not contain a CALL statement 
that directly or indirectly calls the calling 
program. 

When a CALL statement appears in a section with a 
segment -number 50 through 99, the segment is in its 
last used state when the EXIT PROGRAM statement in 
the called program returns control to the calling 
program. 

On the first entry into a called program, or on the 
first entry after a CANCEL statement specifying 
that program, a dynamic program is loaded in its 
initial state. All data items are set to their 
initial values as specified by VALUE clauses, and 
all altered GO TO statements are cleared. 



On all subsequent entries into the called program, 
the state of the program remains unchanged from its 
state when last exited. All data items and all 
alterable switch settings exist in the called 
program as they were itmnediately before the last 
EXIT PROGRAM execution in the called program. In 
addition, files local to the called program are In 
their- last used state. Any lixter.ijil Ciles miglit 
have been thirigod by other programs. 

In the CALL statement, literal or identifier speci- 
fies the subprogram to be called. The value of 
literal or the contents of the data item referenced 
by identifier must correspond to the program-name 
specified in the PROGRAM-ID paragraph of the called 
program. Literal must be a nonnumeric literal; 
identifier must be an alphanumeric data item. 

Tne I'DL parameter must be jpecllicd on the compiler 
C1II if idi-ntifiiT is speeiried or if literal is 
longi-r iliiin seven characters. Upon execution of 
the CALL statement, a literal that is Longer than 
seven chararlers of Lhe conLcnts of identifier must 
correspond to one of thf- progr;im-iia:3es in the FDL 
file. When the FDL file is used, Lhe value ..T 
i;ttr;il or the cont.MiLs of LdenLLfier must he ;. 
program-name of less than 3 J characters, e-cluding 
Lraillug spaces. If literal is less than eigliL 
characters J;i hngth and is not In the FDL Jilo, it 
is assumed 10 be the same ao the entry point of the 
r.aliiMi program and is sLutLc. 

1.. the FDL pnr.imeter is not specLCJcd, only literal 
can be specified .ind it must he loss than eight 
characters in length. There is signLCicant over- 
'.if-ad when tiie FDL file :s used; therefore, il should 
bo used only wht rr-. necosaary. 

See section 11, Product Interfaces, for the calling 
sequence generated by the CALL statement. 



CANCEL Statement 

The CANCEL statement (figure 8-5) unloads a subpro- 
gram, thereby releasing the memory space occupied 
by the named program. When a subsequent CALL 
statement specifying the same program is executed, 
the program is reloaded into memory in its Initial 
state. 



,{l 



CANCEL I '"'^"^'^'^'■"H f' 'dentifier-2] 
i^=!^!tfci I literal- 1 / [. literal-2 J- ■ 



Figure 8-5. CANCEL Statement Format 

In the CANCEL statement, identifier-1 and 

identifier-2 must each be an alphanumeric data 

item; literal-1 and literal-2 must each be a non- 
numeric literal. 



A program named in the CANCEL statement must be a 
dynamic program and it must have executed an EXIT 
PROGRAM statement after it was called. If the 
program specified in the CANCEL statement has 
not been called or has been called and already 
cancelled, no action takes place and execution 
continues with the next statement. 



8-4 



60497100 K 



Any files which are local to the program being 
cancelled and are still in an open state are closed 
as If a CLOSE statement with no optional phrases 
were executed. An appropriate dayfile message is 
also Issued. 



COMPILATION AND EXECUTION WITH FDL 
PROCESSING 

The FDL parameter must be specified in the CUBOL3 
control statement for the compilation when the 
Program Equivalence section is used. in a later 
run unit) a subprogram can be compiled usjng the SB 
parameter and the same FDL file used for the ini- 
tial compilation. If CALL identifier or any equiv- 
alence names are used in a subprogram, the original 
FDI. file must be uSL-d In compilation uE the sub- 
program. The subprogram can then be replaced on 
the tnitJai binary file using the COPYL utility. 

During the compilation of a COBOL '3 main program 
and dynamic subprograms, overlay capsules are 
generated tor the dynamic subprograms. 'I he lora- 
pller also creatos relocatable binaries, for e;ii-h 
program. The binaries must in turn be made into an 
absoluK.' load file before execution can bcjjin. The 
load file is the default file CBicODE. 

Once the absolute load file has been created, the 
main program and its overlay capsules must be 
maintained as a unit. Tt can bi; execiited from a 
iftandard sequential riif or it can be placed on d 
user librarv. 



EXAMPLES OF FDL PROCESSING 

Figure 8-6 shows an example of a job that compiles 
and executes a COBOL 5 main prugrain .ind subprogram 
using FUL processing. An absolute version of the 
application program is capturi'd. Tne Program Equiv- 
alence section, in which the p rosram-narae SUBPROGRAM 
is equated with the internal-name SUBPROG, is 
copied onto the FDL file with execution of the 
C0B0L5(FDL=1MPUT) statement In the rir^t exampio. 
and tho COPYBR statement in the second example. 
Tho load sequence gencralud by Liie LOAD(LCO) and 
N'fy.O statemi^nts produc.'s nn nbaiAulc. loasl file 
from the rciocalaolc blnarirts nn the default Cllu 
CB5C0UE. Execution of the main progr.im begins when 
the control statt-mont CB5C0DE is encountorud jnd 
processed. The permanent fils statements (Olit'lNE, 
REQUEST, and CATALOG) jre used optionally to create 
a permanent file of the main program and subprogram. 
The LDSET(NOliPT) statemenL might be needfid under 
the NOS/BE system, in onler to avoid a job abort 
wiLh duplicate entry points on a later KDTTLTli. 

For execution only, the LOAD{LGO), NOGO, and CB^CODE 
stjtemeiiLs shown in figure K-b can be repijced by 
the I/W statement. 

For additional information on ihe Fast Uyiianiic 
Loader facility, see the CYBER Loader reference 
manual. 

Dynamic loading should be used with care because it 
requires a algniticant amount o£ clmc?. Tn addl-; 
tion, numerous calls and cancels can cause core: 
fragmentation problems. In general, heavily used! 
programs should be statically loaded. 



NOS Operating System 

FLDRUN. 

USER, usernanie, password. 

C0B0L5<FDL=INPUT) 

DEFINE<CB5C0DE) 

LOADCLGO 

NOGO. 

CB5C0DE. 

— EOR~ 

PROGRAH EQUIVALENCE. 

SUBPROGRAH=SUBPROG 



-EOR~ 

IDENTIFICATION DIVISION. 
PROGRAN-ID. MAIN. 



IDENTIFICATION DIVISION. 
PROGRAM-ID. SUBPROGRAM. 



~EOR~ 
~EOI~ 



NOS/BE Oper^tin;] System 

FDLRUN,THO 

ArrnUNT, jsernumber,pdsswijr J. 

CJPYGiiC INPUT, FDLFILE) 

REWIND (FUl FILE) 

COOOLSsFD.^ 

REJUESl>Cli5L0DE,PF) 

LOA3fLG3) 

NOGO. 

CATALOG 'i:bscode,id=4isine} 

CB'iCnDF. 

~E0R~ 

PR'JuRAM EQUIVALENCE. 

SU'I''"3-."'AH=SUBPR0G 



~EOR~ 

IDENTIFICATION DIVISION. 
PROGRAM-ID. MAIN. 



DENTIFICATION DIVISION. 
ROGRAM-ID. SUBPROGRAM. 



~EOR— 
— EOI~ 



Fi'jure 8-6. Exiinipln of Fust Dynniuic 
Loiidci Usage 



SHARED MEMORY AREA 

The COBOL programmer can save memory space in the 
object program by allowing more than one file to 
share the same record area. Refer to the SAME 
RECORD AREA clause description in section 3. 
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CMM ROUTINES 

The CMM routlnen are a set of CP COMPASS subroutines 
whir.h are loaded Into the user's field length. By 
calling these routines with various parameters, 
I COBOL programs can move data, allocate apace, 
release space, change the size of previously allo- 
cated spai:e, and obtain various memory mnnfigemunt 
statistics. 

CMM routines can be accessed by the ENTER statement 
with USING parameters. The routines are written in 
the COMPASS assembly language. Utility-name must 
be enclosed in quotes. Each routine i<i shown with 
its appropriate USING parameters. 



When cither data-ndme-1 or data-name-2 is not a 
COMP-1 Item (one of these Items must he a COMP-1 
item), the CMM block is treated us IC it were a 
Cable with the length ot the occurring item being 
the Length of the non-COMP-l item. Tlie item that 
Is the COMP-1 .Ufm indicates the beginning address 
of the CMM block. In this situation, dat.i-rame-3 
acts as a subscript for Ihe t.ible (thv CMM block) 
and locates the sending or receiving field. If, 
however, data-name-3 has the value I, the CMM block 
is treated as a one-clement table with a length of 
the non-COMP-l item. 

No checking is done on any parameter; the user is 
responsible for the validity of the parameters. 



MOVING DATA 

ENTER "C.CMMMV" USING daca-iiame-1, data-namc-2 
[ , data-namc-31 

This call moves data from on<; locntion to another. 
The contents of the data names specified deti:rm1iie 
the move that is performi-d. The possible moves are: 

To a CMM block from the Data Division 

To the Data Division from a CMM block 

From one CMM block to another 



Data-name-1 specifies the sending location. If 
data-name-1 is a COMP-1 item, it is assumed to 
contain the address of the sending item (usually a 
CMM block). If data-nami'.-l is not a COMP-1 item, 
it is assumed to contain the dat.i being sent. Data- 
nnme-2 specifies the receiving location. The 
interpretation ol its conlcnls is the same as for 
data-name- 1 except that it indicates Lhi- receiving 
field. Data-name-3, which must be a COMV-1 Item, 
determines the quantity of data to be moved or the 
position In the CMM block. If data-name-3 is 
omitted, data-name-3 is assumed to have the value 1. 

Table 8-1 is a summary of possible moves and the 
usage of the data-names that deLerm". ne those moves. 

When daia-namc-1 and data-name-2 arc both COMP-1 
items (therefore indicating addresses of CMM 
blocks), data-namc-3 is the number of characters to 
move from one block to another. 



ALLOCATE BLOCKS 

ENTER "CMMALF" USING block-size, size-code, 
group-id, block-fwa 

This call allocates or creates a fixed-position 
block of a hlzo specified in the call. The fixed 
blocis contains exactly block-size words starting at 
address block-fwa. The initial conteuLs of Llic. 
block are undefined. All parameters used in the 
ENTER statement must be described as COMP-1 itens. 



FREE BLOCKS 

ENTER "CMMFRF" USING block-fwa 

This call releases the fixed-position block whose 
current first word address is block-fwa. When the 
block is released, the COBOL programmer can no 
longer access the contents ot the block. The 
block-fwa parameter must be described as a COMP-1 
item. 



ADDITIONAL ROUTINES 

The following additional CMM routines can be called 
from a COBOL program. Refer to the CMM reference 
manual for further details. 

CMMAGR 

Activates a block group. 



TABLE 8-1. CMM MOVES 



Move Performed 


Usage of Data Items 


Data-name-1 


Data-name-2 


Data-name-3 


From CMM block 
to CMM block 

From Data Division 
to CMM block 

From CMM block 
to Data Division 


COMP-l 

non-COMP-i 

COMP-1 


COMP-1 
COMP-1 
non-COMP-l 


length 

position 

position 
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CMHCSF 

Changes fixed-position block specifications < 
C31HFCR 

Frees a group of blocks. 

CMMFHA 

Gets block first uord address and block 
size* 

CMKGBI 

Gets block information. 
CHMSFS 

Gets naxlimim available fixed block slse. 
CMHGOS 

Gets overflow statistics. 
QOIGSS 

Gets sumaary statistics. 



OfMLOV 



Loads overlay. (This can also be accom- I 
pllshed by using Che CA.LL statement.) | 

CMHLOV 

Loads overlay by means of Fast Overlay 
Loading. (This can also be accomplished by I 
using the CALL statement.) | 

CMMOPtt 

Optimisation functions 1, 2, or 4. 

CHMSFF 

Shrinks ftxed-posltlon block at first vrard 
address. 

OlMSIV 

Saves Identified value. 

CMMSLF 

Shrinks fixed -position block at last word 
address . 
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LIBRARY FACILITY 



COBOL source libraries contain text that is 
available to the compiler for insertion into a 
COBOL source program at compile time. The inserted 
text Is treated as part of the source program. 
COBOL source libraries must be created and main- 
tained on a random program library created by the 
common product Update. 



COPY STATEMENT 

The COPY statement (figure 9-1) incorporates text 
from a COBOL source library into a COBOL source 
program. The copied text replaces the entire COPY 
statement, beginning with the reserved word COPY 
and ending with the punctuation character period. 
The entire COPY statement is listed with two dash 
characters to the right of each line number. Any 
code Introduced by the statement is listed after 
the statement. The Update identifier for each 
introduced line is listed starting In column 75 of 
the line. The only way to identify copied text is 
by this identifier. 



A COPY statement can occur anywhere in the source 
program that a character-string or a separator can 
appear, except either within another COPY statement 
or within copied text. A COPY statement In a 
comment entry is ignored. A COPY statement must be 
written as a sentence. 



In the statement, text-name identifies the text 
that is to be copied; the first nine characters of 
text-name must specify the Update deck name that 
contains the required library text. The entire 
deck Is copied into the source program. 



REPLACING PHRASE 

The REPLACING phrase specifies changes to be made 
during the copy. If the phrase is omitted, the 
text Is copied into the source program unchanged. 

The operands immediately following the keyword 
REPLACING identify the library text to be changed. 
The operands immediately following the keyword BY 
specify the new text. A single word, literal, or 
Identifier can be directly specified as an operand; 
more than a single word must be specified with the 
pseudo-text delimiters. 

Pseudo-text specifies a sequence of character 
strings and/or separators. It must be enclosed in 
the pseudo-text delimiter, two contiguous equal 
signs. If a pseudo-text character string is 
continued, both characters of the delimiter must 
be on the same line. 

Pseudo-text-1 must contain at least one character 
other than a space and at least one item in addi- 
tion to any comment lines. It cannot contain 
debugging lines. 

Pseudo-text-2 can be null and it can contain all 
spaces. If it is all spaces, the library text 
identified by pseudo-text-1 is replaced with spaces. 

A comment line in both pseudo-text-1 and the 
library text is Interpreted as a single space for 
purposes of matching. Comment lines appearing in 
pseudo-text-2 and the library text are copied into 
the source program imc hanged. 

Debugging lines can be specified in pseud6-text-2 

and in the library text. The D In the indicator 

area is ignored in the library text during the 
comparison operation. 



OF PHRASE 

The OF phrase specifies the logical file name of 
the file containing the deck text-name. The 
keywords OF and IN are synonomous and interchange- 
able. The file must be a random Update program 
library. 

When the phrase is omitted, the deck text-name is 
assimed to reside on the file identified by the X 
parameter of the compiler call. 



The identifier, literal, and word are treated as 
pseudo-text containing only identifier, word, and 
literal, respectively, for purposes of matching and 
replacing. 

To replace text in a PICTURE clause, the reserved 
word, PICTURE or PIC, and the picture character 
string must be present in pseudo-text-1. REPLACE 
treats a PICTURE character-string as one entity. 
The entire PICTURE character-string can be 
replaced, but portions of the character-string 
cannot be replaced. 



COPY text-name 



< > library-name 



REPLACING 



=pseudo-text-1= 
I identifier-1 
I llteral-1 
I word-1 



I==pseudo-text-2== 
identlfier-2 
llteral-2 
word-2 



a 



Figure 9-1. COPY Statement Format 
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COMPARISON OPERATION 

The REPLACING operands are compared to the library 
text from left to right, beginning with the left- 
most library text word. Any separator comma, 
semicolon, and/or spaces preceding the leftmost 
library text-word is copied into the COBOL source 
program before comparison begins. 



A job deck used in an Update program library 
creation run under NOS is shown In figure 9-2. The 
Update library is cataloged with the permanent file 
name NEWPL. When the library is used, the library 
must be attached to the Job before the compiler is 
called. The compiler call must have the X parame- 
ter if the OF phrase is omitted from any COPY 
statements and the default library is not desired. 



If pseudo-text-1 consists solely of either a 
separator comma or a separator semicolon, the 
separator character participates In the match as a 
text word; otherwise, any occurrence of a separator 
comma or a separator semicolon within either 
pseudo-text-1 or the library text is considered to 
be a single space during the comparison operation. 

Each sequence of one or more space separators is 
considered to be a single space in both pseudo- 
text-1 and the library text. 

Each successive REPLACING operand is compared to an 
equal number of contiguous library text characters 
until either a match is found or all the REPLACING 
operands have participated in the match. If no 
match is found, the leftmost library text word is 
copied into the COBOL source program unchanged; and 
the next comparison cycle starts, using the next 
successive library text word as the leftmost 
library text word. If a match occurs, the corre- 
sponding BY operand text is copied into the source 
program; and the next comparison cycle starts, 
using the library text word immediately following 
the last text word that participated in the match. 

The comparison cycles continue until all library 
text is either copied into the source program or 
replaced with BY operands. 

The COBOL source program text matches the library 
text if the ordered sequences match character by 
character. 



UPDATE RANDOM PROGRAM 
LIBRARY USAGE 

Update Is a system utility used to create, maintain, 
and update Source decks on libraries in compressed 
symbolic format. Either an entire program or a 
portion of a program can be maintained on the 
library. 

Each text-name specified in the COBOL COPY statement 
must be the name of an Update deck or comdeck. The 
copied text consists of all lines following the 
DECK or COMDECK directive up to, but not including, 
the next DECK, COMDECK, WEOR, or CWEOR directive, 
or the end of the library. All other lines in the 
library, including CALL and IF, are not recognized 
as Update directives. Abbreviations for the 
directives can be specified. 

The usual master control character used in defining 
a program library is the asterisk; however, a 
character other than the asterisk can be used. The 
Update facility is described fully in the Update 
reference manual. 



CREATE. 

USER,username,passuord. -m 
ACCOUNT,userno,password.- 
DEFINE^NEWPL. 
UPI>ATE,F,C=0,N=NEWPL,L=F . 
~EOR— 
*DECK RECDESC 
01 GEN 

02 

02 

02 



•NOS only 
•NOS/BE only 



02 
02 
*DECK WSREC2 



02 



-REC. 
IDENT-1 PICTURE 9(8). 
FILL-1 PICTURE X(S). 
IDENT-2. 
03 ID-2A PICTURE 99. 
03 ID-2B PICTURE XXX. 
FILL-2 PICTURE XCIO). 
IDENT-3 PICTURE XXX. 

WS-C0UNT-ID-2A PICTURE 99. 
US-C0UNT-ID-2B PICTURE 99. 



~EOI- 



Figure 9-2. Example of Update Creation Run 
for COBOL Source Library 



Figure 9-3 shows the source listing obtained from a 
program with two COPY statements. 



The first COPY statement causes RECDESC to be 
copied into the COBOL source program unchanged; the 
second COPY statement causes RECDESC to be copied 
into the COBOL source program with the identifier 
SORT-REC replacing the Identifier GEN-REC and 
the IDENT-3 data item receiving a new name and 
description of PICTURE 999. 



The hyphens indicate a line ignored by the compiler. 
Hyphens mark the line containing the COPY statement 
in the program source; that line is copied in its 
entirety. The copied lines are included below the 
line marked by the hyphens. The label at the far 
right of the copied lines is the UPDATE identifier 
of the line. 



The R symbol indicates a line in which replacement 
has occurred. 

The + symbol indicates a line created by the 
compiler from part of an ignored line. When the 
COPY statement Is not by itself on a line, that 
portion of the COBOL source line preceding and/or 
following the COPY statement is listed on one line 
which is marked with the + symbol. The copied 
items appear on the following lines. 
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A. System Command and Compiler Call 

ATTACH, OLOPL=NEWPL. 
C0B0L5,X=0L0PL. 



B. Program Submitted for Compilation 



FILE SECTION. 

FD GEN-FILE LABEL RECORD OHITTEO 

DATA RECORD IS SEN-REC. 
COPY RECDESC. 
SD SORT-FILE 

DATA RECORD IS SORT-REC. 
COPY RECDESC REPLACING 
GEN-REC BY SORT-REC 
== IDENT-3 PICTURE XXX == BY 
== NEW-IDENT PICTURE 999 
WORKING-STORAGE SECTION. 
01 WS-COUNT-REC. 

02 COPY WSREC2. 
PROCEDURE DIVISION. 



C. Source Listing of Compiled Program 

FILE SECTION. 

FD GEN-FILE LABEL RECORD OMITTED 

DATA RECORD IS GEN-REC. 
COPY RECDESC. 

01 GEN-REC. RECDESC. 2 

02 IDENT-1 PICTURE 9(8). RECDESC. 3 

02 FILL-1 PICTURE X<5). RECDESC. 4 

02 IDENT-2. RECDESC. 5 

03 ID-2A PICTURE 99. RECDESC. 6 

03 ID-2B PICTURE XXX. RECDESC. 7 

02 FILL-2 PICTURE X(10). RECDESC. 8 

02 IDENT-3 PICTURE XXX. RECDESC. 9 

SD SORT-FILE 

DATA RECORD IS SORT-REC. 
COPY RECDESC REPLACING 
GEN-REC BY SORT-REC 
== IDENT-3 PICTURE XXX == BY 

== NEW-IDENT PICTURE 999 ==. 

R 01 SORT-REC. RECDESC. 2 

02 IDENT-1 PICTURE 9(8). RECDESC. 3 

02 FILL-1 PICTURE X(5). RECDESC. 4 

02 IDENT-2. RECDESC. 5 

03 ID-2A PICTURE 99. RECDESC. 6 

03 ID-2B PICTURE XXX. RECDESC. 7 

02 FILL-2 PICTURE X(10). RECDESC. 8 

R 02 NEW-IDENT PICTURE 999. RECDESC. 9 

WORKING-STORAGE SECTION. 
01 WS-COUNT-REC. 

02 COPY WSREC2. 
+ 02 

WS-C0UNT-ID-2A PICTURE 99. WSREC2.2 

02 WS-C0UNT-ID-2B PICTURE 99. WSREC2.3 
PROCEDURE DIVISION. 



Figure 9-3. COPY Statement Example 
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REPLACE STATEMENT 

The REPLACE statement (figure 9-4) Is used to 
replace source program text. Pscudo-text-1 
identifies the source text to be changed. Pseudo- 
text-2 identifies the new text. The inserted text 
is treated as part of the source program; however, 
the source program listing is not affected. 

A REPLACE statement can be used anyuhere In the 
source program where a character-string occurs. It 
must be preceded by a separator period except when 
it is the first statement in a program. A REPLACE 
statement must be terminated by a separator period. 

Except for COPY and REPLACE statements, the 
syntactic correctness of the source program text 
cannot be determined until all COPY and REPLACE 
statements have been processed. 

All COPY statements contained in a source program 
are processed before any REPLACE stntuments. The 
text produced as a result of the processing uf n 
REPLACE statement must not contain a REPLACE 
statement or a COPY statement. 



FORMAT 1 REPLACE 

Format 1 specifies the text of the source program 
to be replaced by the corresponding text. Each 
matched occurrence of pseudo-text-1 in the source 
pi'ugrain Is replaced by the currcspuuding pseudo- 
text-2. Pseudo-text-1 must contain one or more 
text words. Pseudo-text-2 can contain zero, one, 
or more text words. If pseudo-text-2 contains all 
spaces, pseudo-tcxt-1 is replaced with spaces. 
Character-strings within pseudo-text- 1 and jist-udo- 
text-2 can be continued on the following line. 
Both pseudo-text-1 and pscudo-text-2 must be 
enclosed in the pseudo-text delimiters, two 
contiguous equal signs. 

Debugging lines are permitted in pseudo-text-2; 
they are not permitted in pseudo-Lext-l . The D in 
the indicator area is ignored during the comparison 
cycle. If a REPLACE statement is specified on a 
debugging line, the text that results from the 
processing of the REPLACE statement appears as 
though it were specified on debugging lines. 



FORMAT 2 REPLACE 

Format 2, REPLACE OF!', specifies that any text 
replacement currently in effect is discontinued. A 
REPLACE statement is in effect from the point at 



which it is specified until another occurrence of 
the format I REPLACE statement, a REPLACE OFF 
statement, or the end of the program. 



COMPARISON OPERATION 

Psoudo-text-l is compared to an equivalent number 
of contiguous source program text words, beginning 
with the leftmost source program text word. 



Pscudo-text-l matches the source program text if, 
and only If, the text words that form pseudo-text-1 
are equal, character for character, to the source 
program text words, Tf pseudo-text-I consists 
solely of either a separator comma or semicolon, it 
participates in the match as a text word; otherwise, 
any occurrence of a separator comma or semicolon in 
pseudo-text-1 or in the source program text is con- 
sidered to be a single space during the comparison 
operation. Each sequence of one or more space 
separators is considered to be a single space. 

If no match occurs, the comparison is repeated with 
each successive occurrence of pseudo-text- 1, until 
either u match is found or there Is no successive 
pscudo-text-1. 



When all occurrences of pseudo-text-1 have been 
compared and no match has occurred , the next source 
program text word is then considered .is the left- 
must source program text word, and the comparison 
cycle starts again with the first occurrence of 
pseudo-text-1 . 

Wlienever a match occurs between pseudo-text-i and 
lilt" source program text, the corresponding pseudo- 
text-2 replaces the miitchcd text in the source 
program. The source program text word immediately 
following the rightmost text word that partici- 
pated in the match is then considered as the 
leftmost source program text word. Trie comparison 
cycle starts ag.iin with the first occurrence of 
pseudo-toxC-1 . 



The comparison operation conLlnues until the 
rightmost text word In the source program text 
which Is within the scope ol the REPLACE state- 
mi-nt has either participated in <i mutch or been 
considered in tho comparison cycle. 

Comment lines or blank lines occurring in the 
source program text and in pseudu-text-i are 
ignored tor purposes of matching. 





Format 1 
RE 


PLACE ■], = 


=pseudo-f«ixt 


1 


BY 


--pseudo-text-2== | ■ ■ ■ 




Format 2 




R| 


PLACE OFF 






Figure 


3-4. 


REPLACE Statem 
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DEBUGGING AIDS 
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Three separate aids are available for use within 
COBOL in debugging a program. The aids are the 
Paragraph Trace facility, the Termination Dump 
facility, and the Debugging facility. They differ 
in that the Paragraph Trace facility and the 
Termination Dump facility accumulate Information 
in a file for programmer analysis after execution 
completes, but the Debugging facility transfers 
control within the program for processing conditions 
as they occur. In addition, CYBER INTERACTIVE 
DEBUG (CID) is an available debugging option. CID 
differs in that It is a software produce apart from 
COBOL and is designed for terminal usage. 

The Paragraph Trace facility Is selected by the 
DB>TR parameter on the compiler call. It is used 
to trace program flow; output is a file with 
messages indicating the name of a paragraph and the 
time the paragraph was executed. The trace Itself 
Is initiated and terminated by directives within 
the program. The Job is responsible for the 
processing or preservation of Che trace message 
file after the trace Is concluded. 



The DB'TR parameter on the compiler call Is required 
to compile the paragraph trace facility code* The 
source program must contain directives that turn 
the facility on or off during execution. Output Is 
written to a file COBTRFL. 



TRACE FILE 

The trace file has the logical file name COBTRFL. 
It resides on mass storage unless the Job requests 
that the file be assigned to another device. The 
file is -unlabeled arol has a structure of Z type 
records with C type blocking. Each record is 50 
characters long. The file neexl not be referenced 
in a program unless it is processed in the program. 

The Job is responsible for preserving the file when 
the program ends. 

Both status messages and paragraph trace messages 
are written to the file. 



The Termination Dump facility is selected by the 
TDF parameter on the compiler call In conjunction 
with the C5Tra{P control statement. It is used to 
obtain a formatted map of the contents of data 
i*-ems within COBOL programs. Upon normal or 
abnormal Job termination, the contents of the 
execution time field length, which have been saved 
on a system file, are used along with tables saved 
at compilation time to provide the formatted dump. 

The Debugging facility is selected by the DB-DL 
parameter on the compiler call or by the DEBUGGINC- 
MODE clause within the program. It can be used to 
monitor data items or procedures; control transfers 
to a debugging section in the Declaratives portion 
of the Procedure Division under conditions speci- 
fied in a USE FOR DEBUGGING statement. A special 
register, DEBUG-ITEM, can be used in the debugging 
code. The Debugging facility also allows lines 
within the program to be declared debugging lines 
so that they execute only when the Debugging 
facility is selected. 

The KJ-lS - 'fnlKcMli': is described briefly in this 
section. For more detail, refer to the CID 
reference manual or the CID Guide for Users of 
COBOL. 



PARAGRAPH TRACE FACILITY 

The Paragraph Trace facility provides a history of 
the order in which paragraphs execute. Time 
information that Is produced as part of the trace 
output can be used to determine the amount of 
central processor time required to execute any 
given paragraph. 



A status message is written to the file each 
time a Paragraph Trace directive state- 
ment executes. Message format ts shown 
in table 10-1. 

A paragraph trace message is written to the file 
each tine a new paragraph begins execution. Its 
format is shown in table 10-2. 



TABLE 10- 1. STATUS MESSAGE FORMAT 



Character 


Contents 


1-4 


* * * * 


5-30 


26 a] phanumeric characters of 




message 


31-40 


10 numeric digits indicating central 
processor time used since start of 
job 


41-48 


8 numeric characters indicating con- 
secutive number 


49-50 


Zero byte for Z type record 



In both messages, the consecutive number Indicates 
the record number of the message written, starting 
with i. The central processor tine used since start 
of Job appears with seven digits for seconds fol- 
lowed by three digits for nilllseconds. Figure 10-1 
shows at) example of output on COBTRFL. 
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TABLE 10-2. PARAGRAPH TRACE MESSAGE FORMAT 



Character 


Contents 

1 


1-30 


30 alphanumeric characters giving 




paragraph name 


31-40 


10 numeric digits indicating central 




processor time used since start of 




Job 


41-48 


8 numeric characters Indicating con- 




secutive number 


49-50 


Zero byte for Z type record 









The file can be processed in a program after it has 
been closed by execution of an ENTER "C.SrPTR" 
statement. The SELECT clause must specify an 
implementor-name of COBTKFL; the FD entry must 
specify LABEL RECORD OMITTED and define 50-characLer 
records. 



TRACE DIRECTIVES 

Three directives can be used in the program to 
control the Paragraph Trace facility. The di- 
rectives are called by an ENTER statement that 
specifies a directive as a nonnumeric literal. 
For example, the facility is turned on by: 

ENTER "C.ONTR". 



A status message is written to the tr.-icc file each 
time one of these directives is executed. 



The directives can be used anywhere in the Procedure 
Division. Directives are: 



C.ONTR 



Turns on trace. Paragraphs subsequently 
executed are reported by messages on the 
trace file. 



C.OFFTR 

Turns off trace. 

C.STPTR 

Closes and rewinds the trace file. If 
omitted, the file is closed by the system 
when STOP RUN is executed. 

C.ONTR and C.OFFTR can be used to accumulate 
messages from all of a program or only selected 
parts of a program. If C.ONTR is executed after 
execution of C.STPTR, the messages from previous 
trace activity are destroyed. 



TERMINATION DUMP FACILITY 

The Termination Dump facility provides a formatted 
dump of all data items from Working-Storage, 
Common-Storage, and Klie Sections of one or more 
COBOL programs. A map of data items Is produced 
for all COBOL programs that are both in memory at 
the time the job terminates and are also specified 
on a Fast Dynamic Loader (FDL) file. The main 
program, however, need not be specified on an FDL 
file to be Included in the dump. If the Termina- 
tion Dump facility is used, a dump is taken when a 
job terminates normally or abnormally. 

A termination dump is taken when both of the 
following arc true : 

The TDF option appears on the compiler call. 

The control statement C5TDMP is specified after 
the COBOL run (possibly after an EXIT control 
sstatemenc). 

If the TDF option ifi specified, extra information 
is generated by the compiler which allows a for- 
matted dump to occur at a later lime. Tables 
needed for the dump are written to the file 
specified by the TDF parameter. 

When the C5TDMP statemi-nt is executed, the termina- 
tion dump analysis program uses a system file along 
with the file named in the TDF parameter to output 
the formatted map of data Items. The system file 
cunlaLns Llie contents of the field length at job 
termination. 



Line Jt which Paragraph 
Trace DiiPctiVL' Appears 
in Sourcu Proijram 



•*•• TRACE ON FROM 
Name of f WRITE-REC 
Paragraphs ) END-WRITE 

START-READ 

•**• TRACE OFF FROM 

»*»> TRACE ON FROM 

READ-REC 

END-READ 

•»•• TRACE OFF FROM 

••*• TRACE CLOSED 



LINE 00010000000469300000001- 

000000470200000002 

000000470300000003 

000000470300000004 

LINE 00017000000470400000005 

I INF OG019000000470400000006 

000000470500000007 

000000470500000008 

LINE 00023000000470600000009 

LINE no 1 0700000047070000001 

I I Message 

s ms Number 

Elapsed CPU Time 



-Status Message 
Trace Message 



Figure 10-1. P-iniyrciph Tr.ii.u Output Example 
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The format of the CiTDMP statement is: 

C5TDMP,L=lfn,T'lfn,I=lfn,NA. 

The L parameter specifies the logical file namu of^ 

the file to which the dump listing is written. If 

the parameter is omitted, thu listing is written to 

the file OUTPUT. 

The T parameter specifies the logical file name of 
the file from which compiler Infurmatlon is 
obtained. It Is the same file name that appuar.s In 
the TDF parameter on thu compiler call. If the 
T parameter is omitted, the compiler Information is 
obtained from the file TDKILE. 

The I parameter specifies that a directive file is 
available. If I Is not specif iud, it is assumed 
that Lhero is no directive file, and all Items are 
printed. If I is specified without a logical file 
name, it is assumed that the directives arc on 
INPUT; otherwise, the directives are assumed to be 
on the file designated by Ifn. The directives are 
free form, with no punctuation allowed. The only 
separators arc spaces. A data-name cannot be the 
same word as a directive. The directives are: 

E XCEP T {data-name} . . . 

If EXCEPT Is used, all items except those 
specified .ire printed. 



SELECT {data-name} . . . 

If SELECT is used, only the speclfiod items 
are printed. EXCEPT and SELECT are 
mutually exclusive. That is, if one is 
specified, the other cannot hi- specified. 
If this Is violated, the second one is 
ignored . 



OCCURRENCES aa [TO bb] 01' data-name. 

If this is specified, only the indicated 
nimiber of occurrences of data-name are 
printed. The range of numbers is specified 
by the integers aa and bb. 



The NA parameter indicates that no array items are 
printed. Any directives can override this parame- 
ter for the specified Items. Duplicate Items 
within an array are Indicated as duplicates by an 
appropriate message. 

The tormination dump indicates the last paragraph 
and line executed if TDF and DB=TR are both speci- 
fied on the C0B0L5 compiler call statement and the 
trace has been activated by the C.ONTR directive. 
If DB=TR is not specified, the termination dump 
indicates the line number of the last Input-output 
statement executed. If DB=TR is not specified and 
no input-output statement is executed, the message 
NO I/O DONE appears. 

A snap dump can be taken ^t any time by executing 
the statement: 

ENTER "C.SNAP" USING parameter. 



Parameter is either a 1 Its' ml or aiphaniimerlc item 
of up to 30 characters in length which is printed 
on each snap dump. These snap dumps are written on 
the dump file In the order in which they were 
requested, and fan be listed by one C5TDMP control 
statement, using the one set of controlling Input 
di rectlves. 

Tlio formatted map contains three columns. Tlie 
first indicates the data-name of each elementary 
data item within the program, including each 
occurrence of FILLER. The second column Indicates 
the type of data in the item. The types and their 
meanings are listed in table 10-3. TVic third 
column shows Lht' contents of each item. Figure 10-2 
shows an example of a termination dump, 

TABLE 10-3. DATA TYPES IN TERMINATION DUHP 



Type 


Meaning 






AL 


Alphabetic 


ALE 


Alphabetic Edited 


AN 


Alphanumeric 


ANE 


Alphanumeric Edited 


BL 


Boolean 


CP 


COMI'UTATIOSAL 


CPl 


COMPUTATIONAL- l 


CP2 


COMPUTATIONAL-2 


CP4 


COMPUTATIONAL-/* 


ID 


Index Data Item 


ES 


Index-Name 


LC 


LINE-COUKTER 


NE 


Numeric Edited 



DEBUGGING FACILITY 

The COBOL Debugging facility allows two types of 
debugging procedures to be included in a program. 

Debugging lines, once compiled as executable 
code , are always executed . 

Debugging sections, which are coded only in the 
Declaratives portion of the Procedure Division, 
execute only when an execution-time option is 
selected. 

A special register, DEBUG- ITEM, is available for 
reference when the debugging section is compiled. 



DEBUGGING LINES 

Debugging lines are source program lines with a D 
in the indicator area. They can appear in any part 
of the program after the OBJECT-COMPUTER para- 
graph. Continuation lines are permitted, but each 
line must have a D in the indicator area and 
character-strings cannot be split between lines. 
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Debugging lines are compiled as executable code 
when either- of the following Is true: 



The DEBUGGING MODE clause appears In 
SOURCE-COMPUTER paragraph. 



the 



The DB=DL parameter appears on the compner 
call . 

In the absence of one of these compile-time 
options, all debugging lines are compiled as 
comments. Consequently, debugging lines should be 
coded so that they are syntactically correct as 
both comments and executable code. 

Once the debugging lines are compiled, they execute 
each time the program executes; they cannot be 
suppressed at execution-time. 



DEBUGGING SECTIONS 

A debugging section is ~ a section within the 
Declaratives portion of the Procedure Division 
that follows a USE FOR DEBUGGING declarative 
statement. The debugging section is compiled as 
executable code only when the DEBUGGING MODE clause 
(figure 10-3) appears in the SOURCE- COMPUTER 
paragraph. In the absence of the DEBUGGING MODE 
clause, debugging sections are compiled as comments. 



WITH DEBUGGING MODE 



Figure 10-3. DEBUGGING MODE Clause Format 



The control statement acts as a toggle: the first 
occurrence of the statement turns the switch on; 
the second turns it off; the third turns it on 
again . 



USE FOR DEBUGGING Declarative Statement 

The USE FOR DEBUGGING statement (figure 10-4) 
identifies the user items that are to be monitored 
by the associated debugging section. It must be 
the first sentence after a section header within 
the Declaratives portion of the Procedure Division. 
Statements within the section form the debugging 
section that executes when the conditions estab- 
lished by the USE declarative occur. 



USE FOR DEBUGGING ON 

Sf ALL REFERENCES OF] identifier-1 ' 
procedure-name-1 
file-name-1 
cd-name-l^ 
ALL PROCEDURES 



[ALL REFERENCES OF] identifier-2 

procedure-name-2 

flle-nanie-2 

cd-name-2''" 

ALL PROCEDURES 

^Can only be used under NOS. 



Figure 10-4. USE FOR DEBUGGING Statement Format 



Debugging Section Execution 

Execution of the debugging section is controlled by 
switch 6, one of the six external software switches 
that are available to every job. Table 10-4 shows 
the meaning for debugging when the switch is on 
or off. 



TABLE 10-4. STATUS OF SWITCH 6 



Switch-Status 


Meaning for Debugging 


ON 
OFF 


Debugging section code executes 

Debugging section code does not 
execute 



Switch 6 can be turned on LnLernally or externally. 
Internally, it is turned on hy specifying the 
SWITCH-6 IS mnemonic-name clause in the SPECIAL- 
NAMES paragraph and setting the mnemonic-name to ON 
in a format 4 SET statement . 

Externally, switch 6 is turned on by a control 
statement executed prior to program execution. The 
control statement can be entered as part of an 
interactive or batch job. Its format is: 

SWITCH, 6. 



The USE FOR DEBUGGING statement can reference one 
or several of the following items: identifier, 
procedure-name, file-name, or cd-name. Any parti- 
cular Identifier, procedure-name, file-name, or 
cd-name can be specified only once in a USE FOR 
DEBUGGING statement and cannot be duplicated In any 
other USE FOR DEBUGGING statement. 



Reference modification is not allowed on 
Identifiers in a USE FOR DEBUGGING statement. 



the 



The debugging section is not executed as a result 
of execution of a statement in which file-name, 
identifier, or procedure-name is used as a 
qualifier. 



ALL REFERENCES OF Phrase 

The ALL REFERENCES OF phrase specifies that the 
debugging section is to execute each time a 
statement that explicitly references identifier-1 
is executed. 

Identifier-1 names the data item to be monitored. 
It must not name a data item defined in the Report 
Section other than sum counter. 

If identif er-1 names an item that contains an 
OCCURS clause or is subordinate to an OCCURS 
clause, the subscripting or indexing normally 
required must be omitted. 
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When the ALL REFERENCES OF phrase Is specified, the 
debugging section is executed immediately after the 
execution of a statement that explicitly references 
identif ier-1 , except under the following conditions: 

In a RELEASE, REWRITE, or WRITE statement, the 
debugging section is executed prior to execu- 
tion of the statement. If the FROM phrase is 
specified, the debugging section is also 
executed after any resulting move operation is 
completed. 

In a GO TO statement with the DEPENDING ON 
phrase, the debugging section is executed 
before control is transferred by the GO TO 
statement and prior to the execution of 
any debugging sections associated with the 
procedure-name to which control is transferred. 

In a PERFORM statement with either the VARYING, 
AFTER, or UNTIL phrase, the debugging section 
is executed Immediately after each initializa- 
tion, modification, or evaluation of the 
contents of identif ier-1. 



After the execution of either an OPEN, CLOSE, 
DELETE, or START statement that references 
flle-name-1 

After the execution of a RETURN statement 
(after any other specified USE procedure) not 
resulting in the execution of an associated AT 
END imperative-statement 

After the execution of a READ statement (after 
any other specified USE procedure) not result- 
ing in the execution of an associated AT END or 
INVALID KEY Imperative statement 



Cd-Name Phrase 

If cd-name is specified, the debugging section is 
executed after the execution of any of the follow- 
ing statements, if these statements reference the 
specified cd-name: ACCEPT MESSAGE COUNT, ENABLE, 
DISABLE, REC|iyE (without the NO DATA imperative- 
statement), ^^^g0oi SEND statement. 



When identlfier-1 is specified without the ALL 
REFERENCES OF phrase, the debugging section is 
executed for the RELEASE, REWRITE, WRITE, and 
PERFORM statements as Indicated for the ALL 
REFERENCES OF phrase. For all other references to 
identif ler-1, the debugging section is executed 
after execution of a statement that contains an 
explicit reference to ldentifler-1 and that updates 
the contents of identif ier-1, (The contents of 
identif ier-1 need not change.) 



Procedure-Name Phrase 

If procedure-name- 1 is specified, the debugging 
section is executed iimediately before each execu- 
tion of procedure-name-1 and immediately after the 
execution of any ALTER statement that references 
procedure-name-l . 

Procedure-name-1 cannot be specified in a program 
for which an ALL PROCEDURES phrase is specified. 



File-Name Phrase 

If flle-name-1 Is specified, the debugging section 
is executed as follows: 



ALL PROCEDURE S P hrase 

The ALL PROCEDURES phrase can appear only once in a 
program. When specified, the debugging section is 
executed immediately before execution of each 
procedure (except those appearing within a debug- 
ging section) and immediately after execution of 
each ALTER statement that references a procedure. 



DEBUG-ITEM REGISTER 

The special register DEBUG-ITEM is updated with 
each execution of a debugging section to provide 
information concerning the condition that caused 
execution of the debugging section. Each of the 
fields in the register can be accessed individually. 

The implicit description of DEBUG-ITEM is shown in 
figure 10-5. 

DEBUG-ITEM is space-filled and the following 
subordinate items updated as Indicated prior to 
each execution of the debugging section. 

DEBUG-LINE 

Line number of the source statement. 



01 DEBUG-ITEM. 

02 DEBUG-LINE PICTURE IS X(6). 

02 FILLER PICTURE IS X VALUE SPACE. 

02 DEBUG-NAME PICTURE IS X(30). 

02 FILLER PICTURE IS X VALUE SPACE. 

02 DEBUG-SUB-1 PICTURE IS S9999 SIGN IS LEADING SEPARATE CHARACTER. 

02 FILLER PICTURE IS X VALUE SPACE. 

02 DEBUG-SUB-2 PICTURE IS S9999 SIGN (S LEADING SEPARATE CHARACTER. 

02 FILLER PICTURE IS X VALUE S'ACE. 

02 DEBUG-SUB-3 PICTURE IS S9999 SIGN IS LEADING SEPARATE CHARACTER. 

02 FILLER PICTURE IS X VALUE SPACE. 

02 DEBUG-CONTENTS PICTURE IS X(n). 



Figure 10-5. DEBUG-ITEM Description 
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DEBUG-NAME 

First 30 characters of the name that caused 
execution of the debugging section. 

DEBUG-SHB-1 

The occurrence number of the first level of 
subscripting or indexing, if applicable. 

DEBUG-SUB-2 

The occurrence number of the second level 
of subscripting or indexing, if applicable. 

DEBUG-SUB-3 

The occurrence number of the third level of 
subscripting or Indexing, if applicable. 



DEBUG-CONTENTS 

The contents of the data or procedure item 
being monitored. DEBUG-CONTENTS size is as 
large as necessary to hold the largest item 
monitored . 



Updating of the subordinate entries in DEBUG-ITEM, 
with the exception of DEBUG-CONTENTS, is accom- 
plished in accordance with the rules for the MOVE 
statement. 



Table 10-3 shows the contents of DEBUG-ITEM when 
the debugging section is executed under various 
conditions. The user can write the DEBUG-ITEM to 
a print file in order to review the contents of 
DEBUG-ITEM. 



TABLE 10-5. CONTENTS OF DEBUG- ITEM 



Reference Causing Execution 
of the Debugging Section 


Contents of DEBUG-ITEM 


DEBUG-HNE 


0EBU6-NAME 


DEBUG-CONTENTS 


First execution of the 
first nondeclarative pro- 
cedure in the program 


Line number of the 
first statement of 
the procedure 


procedure-name 


START PROGRAM 


Reference to procedure- 
name- 1 in an ALTER 
statement 


Line number of ALTER 
statement 


procedure-name-1 


procedure-name specified 
in the TO phrase of an 
ALTER statement 


Reference to procedure- 
name- 1 in a GO TO state- 
ment 


Line number of GO TO 
statement 


procedure-name-1 




Reference to procedure- 
name- 1 in a SORT or 
MERGE phrase 


Line number of the 
SORT or MERGE state- 
ment 


procedure-name-1 


SORT INPUT, SORT 
OUTPUT, or MERGE 
OUTPUT, depending on 
whether the reference 
occurred in SORT input 
phrase, SORT output 
phrase or MERGE output 
phrase, respectively. 


Reference to procedure- 
name- 1 in a PERFORM 
statement 


Line number of the 
PERFORM statement 


procedure-name- 1 


PERFORM LOOP 


Reference to procedure- 
name-1 in a USE statement 


Line number of the 
USE statement 


procedure-name-1 


USE PROCEDURE 


Control transferred to 
procedure-name- 1 
implicitly from the 
previous paragraph 


Line number of the 
previous statement 


procedure-name-1 


FALL THROUGH 


Reference to file-name-1 


Line number of state- 
ment that references 
flle-name-1 


file-name-1 


For a READ or RETURN 
statement, the entire 
record; otherwise, spaces. 


Reference to identifler-1 


Line number of the 
statement that refer- 
ences identlfier-l 


ldentlfier-1 


Contents of identlfier-l 
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CYBER INTERACTIVE DEBUG 



CYBER Interactive Debug (CID) .Ulows Clu: COBOL 
programmer to debug a program while It Is cxooiil- 
Itig, without requiring any source program ramilftcii- 
tions. It is not neceissary to liave a complpti; 
knowledge of ClU in order to Lake advaiitago of Its 
most useful teatures because much of its power 
exists in a tew commands. 

Note that CII) is not the same facility as the COBOL 
Debugging facility. Cll) is a separate product and 
may not hn available at all sites. Debug moHp and 
the DEBUG control staLumeiit are unrelated to Ihc- 
COBOL DEBUGGING MODE clause. 



by 'ipcclfyiiig the DICBUG contiol statement prior to 
compilation. No special options arc required on 
the COUOL statement. 



DB Parameter 

Vnc DB parameter (see section ii) can be used to 
override the debug mode esLablished by the DEBUG 
control statement it deslrcsd. 



DEBUG Control Statement 

The DEBUG control statement activates debug mode. 
'I'he format (if this st.itement is as tollows: 



Tn interactive mode, C7D enables the user to suspend 
program execution while entering commands directly 
from a terminal. Each CID command is executed as 
soon as It is entered, and program execution re- 
mains suspended until it is directed to resume. In 
this way the user can display and changn values 
within the program while controlling execution. 

To use CID, the programmer must establish debug 
moile by ■■xcciit inf, 1 he Dt!B(IG(ON) CDntrnl -it ;il I'mi-nl . 
While debug mode Is in effect, CID controls COBdl. 
program execution. Program execution can be sus- 
pended in tour ways: 

By setting breakpoints at specific locations 

3y specifying tr.ips for specific events 

By executing until normal or abnormal program 
tcrmi:iaLion 

By issuing a terminal interrupt 

CID takes control when any of these conditions are 
reached; depending on the commands entered, data 
items can be Jisplayod, values of items cm be 
changed, and new traps or breakpni'its can be set. 
Program execution can then be resumi-d .it I he point 
ol suspension or at the beginning of any ex>.-culable 
source line, pjrHgrHph, or section i.i the COBOL 
prograii. 

No special statements are required i:i a source 
program to he run in debug mode. However, the 
following restrictions apply: 

The COBOL program must not li-'ive dynamically 
loaded subprograms. (It must not use FDL.) 

The COBOL program must not have fixed overlay- 
able segments or independent segments. 

The COBOL program must not use the Message 
Control System (MCS). 

The COBOL ,)rogr.im must not use tlie CYBER 
D.itnb.ise Control System (CDCS). 

The CUB(jL program must not use the Transaction 
Kaciiity. 



PROGRAM COMPILATION 

To use CID requires that a program compile and 
execute in debug mode. Debug mode is establlslied 



DEBUG, 
or 

DEBUC(ON) 

Debug mode ^an !ie subsequently turned oft by tlie 
-itateraent : 

DEBUG(01'I'') 

Whew ,1 COBOL source program is compiled in debug 
mode, tne compiler produces special symbol tables 
along with the oiiiary object code. When the pro- 
gram is subsequently executed in debug mode, all 
Lhe CID icdtures can be used. 

When l)KHC(-(OiN} is specified, debug parameters DB'^KF 
.ind DB=hh nru rilso selected. bee section 12, 
Compiler Call and Execution. 

in order to execute the program under CID control, 
debug mode must be turned on prior lo the program 
load. The CIM module is loaded dlung with tne 
compiled code and becomes part ot the user's field 
length. 

A program compiled tor use a'ith CID executes some- 
what less efticiently ihnn j program comjilled 
normally. 



DEBUG SESSION 

Vo execute .i program under CID control, Che 
D£BUG(ON} control statement must be specified prior 
to initiating program execution. 'lhe debug session 
begins by entering the name of the binary object 
file. Normally, tins initiates exe.cution of the 
user i^rrograin. In ilebug node, however, control 
transfers to an entry point in CID. CID responds 
rfith the .Tiessage: 

CYBER INTERAC'l'lVE IJEBUG 



The .' is a prompt signifying that CID is waiting 
for uher input. At this point the user can enter 
CIIJ comma nr!s. Typically, the user takes this 
opportunity to set traps and breakpoints that will 
cause execution to be suspended, and then enters 
the command to begin execution of the (<rogr.ira. 

T.ihle 10-b gives the format and description of some 
ClU commands. Figures I'J-b ana 10-/ snow a simple 
debug session. See the CYUmi interactive Debug 
Guide for Users ot COBOL or the CYBER Interactive 
Debug reterence manual tor more details on using 
iciD. ' 
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I IDENTIFICATION DIVISION. 
Z PROGRAM-ID. SORT-BIDS. 

3 * 

4 * THIS PROGRAM SORTS A LIST OF BIOS SUBMITTED FOR ONE ITEM 

5 * AT AN AUCTION. EACH INPUT LINE TAKES THE FORM: 

6 * BID PICTURE 9999 V99. 

7 ENVIRONMENT DIVISION. 

8 CONFIGURATION SECTION. 

9 SOURCE-COMPUTER. CYBER-1 70. 

10 OBJECT-COMPUTER. CYBER-1 70. 

II INPUT-OUTPUT SECTION. 

12 FILE-CONTROL. 

13 SELECT IN-FILE ASSIGN TO "BIDS". 

14 SELECT OUT-FILE ASSIGN TO "OUTPUT". 

15 SELECT SORT-FILE ASSIGN TO SFILE. 

16 DATA DIVISION. 

17 FILE SECTION. 

18 FO IN-FILE 

19 LABEL RECORD IS OMITTED 

20 DATA RECORD IS LINE-IN. 

21 01 LINE-IN. 

22 05 BID PICTURE 9999V99. 

23 05 FILLER PICTURE XC4). 

24 FD OUT -FILE 

25 LABEL RECORD IS OMITTED 

26 DATA RECORD IS LINE-OUT. 

27 01 LINE-OUT. 

28 05 FILLER PICTURE XCIO). 

29 05 BID PICTURE $9999.99. 

30 SO SORT-FILE 

31 RECORD CONTAINS 6 CHARACTERS 

32 DATA RECORD IS SORT-RECORD. 

33 01 SORT-RECORD. 

34 05 BIO PICTURE 9999V99. 

35 WORKING-STORAGE SECTION. 

36 01 BIO-INFORMATION. 

37 05 NUHBER-0F-6IDS PICTURE 99V. 

38 05 BID-TABLE OCCURS 10 TIMES 

39 INDEXED BY BID-INDEX. 

40 10 BID PICTURE 9999V99. 

41 PROCEDURE DIVISION. 

42 INITIALIZATION SECTION. 
43 

44 OPEN-FILES. 

45 OPEN INPUT IN-FILE 

46 OUTPUT OUT-FILE. 

47 INITIALIZE-VALUES. 

48 MOVE ZERO TO NUMBER-OF-BIDS. 

49 PROCESS-A-BIO SECTION. 

50 READ-BIDS. 

51 READ IN-FILE AT END GO TO SORTING. 

52 ADD 1 TO NUMBER-OF-BIDS. 

53 MOVE LINE-IN TO BID OF BID-TABLE <NUM8ER-0F-BIDS) . 

54 GO TO READ-BIDS. 

55 SORTING SECTION. 

56 SORT-THE-BIDS. 

57 SORT SORT-FILE 

58 ON DESCENDING KEY BID OF SORT-RECORD 

59 INPUT PROCEDURE IS SORT-IN-PROC 

60 OUTPUT PROCEDURE IS SORT-OUT-PROC. 

61 GO TO WRITE-RESULTS. 

62 SORT-IN-PROC SECTION. 

63 START-OF-SECTION. 

64 PERFORM VARYING BID-INDEX FROM 1 BY 1 

65 UNTIL BID-INDEX IS GREATER THAN NUMBER-OF-BIDS 

66 RELEASE SORT-RECORD FROM BID OF BIO-TABLE (BID-INDEX) 

67 END-PERFORM. 



Figure 10-6. COBOL Program (Sheet 1 of 2) 
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69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 



SORT-OUT-PROC SECTION. 
STAfiT-OF-SECTION. 

PERFORM SORTIMS-PARASRAPH VARYING BID-INDEX FROM 1 BY 1 

UNTIL BID-INDEX IS GREATER THAN NUMBER-OF-BIDS. 
60 TO END-OF-SECTION. 
SORTING-PARAGRAPH. 

RETURN SORT-FILE RECORD 

AT END GO TO ENO-OF-SECTION 
MOVE SORT-RECORD TO BIO OF BIO-TABLE CBIO-INOEX) . 
END-OF-SECTION. 
WRITE-RESULTS SECTION. 
WRITE-BIDS. 

PERFORM WRITE-CNE-BID VARYING BID-INDEX FROM 1 BY 1 
UNTIL BIO-INDEX IS GREATER THAN NUMBER-OF-BIDS. 
GO TO EMD-OF-RUN 
URITE-ONE-BID, 

HOVE BID OF BIO-TABLE (BID-INDEX) TO 610 OF LINE-OUT. 
WRITE LINE-OUT. 
END-OF-RUN SECTION. 
CLOSE-FILES. 

CLOSE IN-FILE, OUT-FILE. 
STOP-RUN. 

STOP RUN. 



Figure 10-6. COBOL Program (Sheet 2 of 2) 



TABLE 10-6. CID COMMANDS 



Format 



CO 

HELP 

HELP, subject 

HKI.P.CMDS 

HK LP, command 
QUIT 

DISPLAY 1 i«L 



SET.BRFAKPOlKT.loc 
SB , 1 or 



C I.RAR , BKEAKPOIKT , loc 
CB , loi.- 

CLEAR, BREAKPOINT,* 

STEP.il.iJNE 
S,n,LfNE 

MOVE value TO idt-nC I F-^er-l 



Ueacript ion 



Initiates or rusumus execution of tlie user program. 
Program execiiiion begins At tli.5 location whore Lt was 
suspended . 

Displays a list of CID subjeits. 

Obtains addicionaj information about -iny suhje^L Ln Llic 
List. 

Displays a complete list of CIO couimands and a bnef 
explanation of eacli command. 

Gives a dotaibid explanation ojl any CIO coinraand. 

Terminates tbc debug session. (Debug modd remains on 
until DEBUG, OFF is i-nteren.) 

DispJays tin.- values of tlic spucified data-iLoms. List is 
a list of JdentiiiLers and '. iterals. 

Seta a brcAkpoint at a specific location in the program. 
IjOc Is the line number specification {L.n; or procedure- 
[lame spticif Ication (PH. procedure-name) . Wlicn a break- 
point lb enco.mtei-ed during program execution, CID 
assumes control and allows the user Lo t-nter any CID 
fojmnand. In a typical session, commands are entered to 
display or change values of data-lteas. 

Removi-B breakpoints from specified I oc^it ions . 



Clears all currently dt-ftned breakpoiat.^. 

Executes J few lines at a time, n indicaLos the mimbtr of 
lines Lo be executed. 

Alters the value of data iLoms. 
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COBOL 5 Interfaces with other CDC software products.! 
This section provides an overview of the following' 
products i 

Conmon Memory Manager (CMM) 

Provides centralized dynamic memory manage- 
ment for COBOL programs. 

COMPASS 

Transfers control to subprograms that are 
written In COMPASS. 

CYBER Database Control System (CDCS) 

Allows the COBOL program to access one or 
more data base files. 

CYBER Interactive Debug (CID) 

Monitors and controls the execiiClon of a 
COBOL program from a terminal. 

CYBER Record Manager (CRM) 

Implements COBOL 5 file Input and output 
requests during program uxecution. 

FORTRAN 

Executes FORTRAS subroutines from a COBOL 5 
program. 

Information Management Facility (IMF) 

Allows the COBOL program to pn)eps«! infor- 
mation in an information system. 

Message Control System (MCS) 

Implements the COBOL 5 Communication 
Facility. 

Operating System Facilities 

Enables the COBOL program to inttrrTace with 
the operating system through KOS permanent 
file commands. 

Queued Terminal Record Manager (QTRM) 

Allows the COBOL program to have an indi- 
rect interfaoe to a teleprocessing network. 

SORT/MERGE 

Implements the COBOL 5 Sort/Merge facility 
and provides for the sorting and merging of 
files through a control statement. 

Transaction Facility (XAF) 

Provides for on-line transaction processing. 



8-Blt Subroutines 

Converts, moves, compares, packs, and un-| 
packs IBM sequential 8-bit files and CDCJ 
Internal files. 



COMMON MEMORY MANAGER 
INTERFACE 

Common Memory Manager (CMM) provides centralized 
dynamic memory management for COBOL programs . CMM 
makes moving large amounts of data more efficient 
and can significantly decrease execution time field 
length. CMM is discussed in section 8, Memory 
Management, and in the CMM reference manual. 



COMPASS INTERFACE 

The CALL and ENTER statements generate code which 
passes location and InForm-itloa about data items 
used in tlie subprogram being called. '.Although the 
CALL statement with the literal option can be used, 
use of the ENTER statement id recommended.) 



KOTE 

Because of anticipated changes Ln this 
product, the use of CWIFASS is not recom- 
mended. Se<.' appendix F for guidelines. 



The generated code passes che .iddress of a list of 
parameter Information words (sometimes called .jn 
APLIST). Control passes to the subprogram via a 
return jump. The normal format of the generatud 
code to call the subprogram is shown In figure il-1. 



Tlie parameter list contains a full word of infor- 
mation about each parameter in the order the param- 
eters appear in the USING statement. A word of 
binary zeros terminates the list. The use of the 
CALL statement or the language-name 'specified in 
the ESTER statement determines the format of each 
word in the list. Figure 11-2 gives the pointer 
word format of the parameter for the GALL, ENTER 
COMPASS, or ENTER no l-.nguage-name statement. 
Figures 11-3 and 11-4 give the pointer word formats 
for the ENTER FORTRAS-X and ENTER FTN5 statements. 



SAl 
+ RJ 

VFD 
+ SB1 



parameter list address 

routine-name 

30-line number 

1 (only if ENTER is specified) 



Figure 1t-1. COMPASS Catt to a Subprogram 
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a Group Item Pointer 
59 53 



35 



Size 



29 



23 



BCP 



Type 



17 



Address of Data Item 



b. Numeric Item (except COMP-21 or Numeric Literal Pointer 







57 51 




48 


44 


35 


29 


23 




17 


s 


n 


Point 


S 
Y 





Size 


BCP 


Type 


C 


U 


Address of Data Item 



59 






53 




35 


?9 


23 


20 


17 







n 


S 
Y 


J 


Size 


BCP 


T\rc 


C 


U 


Address of Data Item 

1 



d. COIVlP-2 Item Pointer 
5? .^__^ 



Binary Zeros 



17 



Address of Data Item 



e. Procedure-Name Pointer 
59 



f. File-Name Pointer 
59 



29 25 23 



17 



010 1 



ind 



Address of Procedure-Name 



29 26 23 



17 



1 



1 00 



Address of FIT 



f eiii Bus 

Aus'ess 17 

L 18-20 



Type 



BCP 



24-29 



36-44 or 
36-53 



AddreES o* item ur ^IT 

USAGE of data .te"i {uctd : 

No' ipeci'iCd 

1 DISPLAY inonnumeiici 

2 COMPUTATIONAL OR DISPLAY Inumericl 

4 COVIP-'ATICNAL-' o> INOf X 

5 COVIP-4 

7 ^/l•xPR {nrDup> 

Cla&s ai darn-name ten (octal' 



Nc: speeilieti 

Atpnabet-c 

Numeric 

Alphanumeric 

Boolean 

Mixed l^roupi 



Type ol Odla-iMpie j'st (octal' 
A\ Group Item with x / 4 
44 File-name 

Sx CleTienti^-v item with anv x lelue 
24 PAidC'&pf\-narne 
26 Sectior^-iiame 

Byte number m address at iwhicn rteir begins. 
Bytes are eaci Ci Pits and are numbered 
throuyh 9 lett to right 

Nur*ibe[ of chaiactert in item 



F.ed 


Bts 




Sin- 'ir;ncp 


E> 


49 no or 


Syii,'! 


'jniiat.oi' ird ' a'or 




55 56 


00' 


Nrit Sv-fnrn rp!i 






1C 


S^r-,.nrcnizea left 
Sv-i.->-C' ii?eJ 'ight 


Poin- 


61-S? 


Pnin' 


uus t.cri It-lb o6-b/ 






00 


Assumed point P't 






01 


Assumed point r.ohl 






10 
1' 


Aoijot pent lett 
Acr..,tl no.-t right 






P(ji"l 


locat.s 1 ijts O'-tb 


S 


53 


1 


Signe-:! 









L'nsi^neil 



\;-iC A ni.t*!*' t *c-:.i in .1 USITJG i': CMTts a ivpe B WdTfte- puin* 'Kj 'n l*ip i'Pr.i 



54 J.JS* fica: o 1 -ridiLdlo.- 

1 J..5: ^ed r ^YA 

;nd *S-73 'ndi'ecT procedi.'e .■ic-,ci-(" 

Prorerii-f ', i- — r"^.'r, 
* Procedurt* s no: i' nffrr^ 

fO' UvPrirV- 

F 20 Sw-tiui indiLatu' 

Paragrapi prtx;cdj'8-''a'T v 
" Set' 'un i, 'w. edi ■ e-nanf 

n — Fieic t^u^ jse^' 7t-n 'il'fii. 

The liTTj" i\i rif p'*hni lU c ^0 c'ijr£ct--5 .r. Ii"ii) h p<-iJrtrcl :>n !hc 



di A t^ d :plav code /"'Oi 



Figure 11-2. Pointer Word Format for CALL and ENTER Statements 
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59 



17 



Binary Zeros 



Address of Data Item 



Figure 11-3. Pointer Word Forn<at for ENTER FORTRAN-X Statements 



Bit 
Position Definition 

59 LCM Flag 

=0 If central memory resident 

=1 If ECS resident (in SECONDARY-STORAGE) 

54-58 Decimal point location (to the left of the right 

most digit). If negative, the point is to the right 
of the right most digit. 

48-53 Type of data item or name 

-0 COMP-2 (real or single precision floating 

point) 

=1 COMP-1 (integer or binary integer) 

=5 Alphanumeric or group or numeric display or 

edited 

=6 Procedure-name 

=7 File-name 

=9 Numeric sign leading separate 

=10 Numeric sign right separate 

=11 Numeric sign leading included 

=12 Numeric sign right included 

30-47 Length of the item In characters 

28-29 Not defined (binary zeros) 

24-27 Beginning character position (BCP) 
=0 First character in bits 54-59 
=1 First character in bits 48-53 



=9 First character in bits 0-5 

18-23 Binary zero 

0-17 First word address 

Notes: 

Numeric literals in the using list shorter than 15 charac- 
ters in length will be stored as binary integers (type of 
1) if there is no decimal point, or as floating point 
numbers (type of 0) if there is a decimal point. 
Numeric literals longer than 15 characters in length will 
be stored as display strings with display zeros on the 
left (20 characters in all). All numeric literals will be 
complimented if negative (includes long ones). 
Alphanumeric literals will be stored as strings and will 
be left justified in a word. There may be trailing binary 
zeros or spaces, but they are not counted in the size. 
The length of numeric items including COMP-1 or 
COMP-2 is the actual number of characters in the item, 
not the number of digits specified m the PICTURE. 



CYBER DATABASE CONTROL 
SYSTEM INTERFACE 

COBOL 5 can u.^p tiie CYBER Databa.3e Control System 
(CDCS) to access one ur more data base files. A 
directory called a subschema, which resides on a 
separate file, contjlris dnta base file descrip- 
tions. Section 16, Subschema Facility, describes 
features providing access to d,^^^ b.iso files. 

CYBER INTERACTIVE DEBUG 
INTERFACE 

CYBER Interactive Debug (CID) is a supervisory 
program module tbat allows the user to monitor and 
control the exec.it ion of n COBOL program from a 
termin.5l. A COBOL progrim can be debugged by 
suspending exacut^on .it specific locations, dis- 
playing and jl-i-cring v.iliius of data Items, and so 
on. Sec iiiction 10, Debugging Aids, and the CID 
Guide for "Jsers of COBOL. 

CYBER RECORD MANAGER 
INTERFACE 

CYBER Record Manager (CRM) is used during execution 
for ^. :i COBOL file input and output and ACCEPT and 
DISPLAY st.itements. The compiler generates i;^fora^a- 
tion i)r the filo J.-ifunntion table (FIT) according 
to t-.e statumonts of the .Sf-urce program. The FIT 
is cri;nti."d .md i .iltii". i zed w'.i«n -d file is optj^ned 
during expcutloT. 



The programmer ca ■ 
FIT i.i ti'reo wa-.-s: 



.:fr"!'ct- the information i.i the 



Figure 11-4. Pointer Word Format for 
ENTER FTN5 Statements 



By the cl.iuhes or pnrases used in the source 
progran 

By thf US?: :j.t«rri: clause of the FILE-COKTROL 
pirag.'aph 

By FILE cor.irol statemKnt L'<ev;ution prior to 
program exai'jtion 



FIT FIELDS FROM SOURCE CODE 

The primary FIT fi.,?lris e.7.t.-ib.is ltd by source code 
statements (t.iblo 11-1) are concerned with the file 
name ,;nd -strui-.turo. The implementor-namc of the 
SELECT clause est.ibl ishfts the logical file nane In 
I ho Fir. 

For al". file organ; zntions, usi=r oxiLs for DX, EX, 
and LX are set such that control returns to the 
COBOL system execution-time routines. Tnese rou- 
tines then provide the capabilities described 
elsewhere In this manual. 
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TABLE ll-l. FIT FIELDS SET FROM SOURCE CODE 



File Organization 



AM organizations 



Sequent JAi 



Indexed 



Field ai\d Symbolic V.iliie 



FO 
SQ 
WA 
IS 
DA 
AK 
WA 

RT, MNR, MRL 



RL 

Other record description fields 

PD 

INPUT 

OUTPUT 

I-O 

LT 



Clause or StatPment Used 



UL 
S 

ULP 



FF 

BT, HNB, MBL 

BFS 

MFN, PNO 

CM 

IP 

DP 

KT, KA, KP, KI. 

LBL 

MBL 

XN 

CDT/DCT 

ON 
NEW 
OLD 



ORGANIZATION Clause 
SEQUENT] AI. 
RELATIVE 
INDKXEI) 
DIRECT 
ACTUAL-KEY 
WORD-ADDRESS 

RECORD clause, Record Description entry, WRITE with 
ADVANCING phrase, FO entry LINAGE clause (see 
table '1-3 In section 4) 

ScH table 4-3 in section 4 

Record Description enti-y 

OPEN -jt-itfiment 
INPUT 
OUTPUT 
1-0 

LABEL RECORDS clause 
OMITTED 
STANDARD 

Performed by system iC VALUE OF pnrase in LABEt^ 
RJ-;CORDS .-.la use 



Always set 

BLOCK CONTAINS clause 

RESERVE clause 

iniLTlPLE FILE TAPE clausii 

R>XORDIKG MODE (COBOL default is YES) 



fnsL.ii 1 at ion parameter 

Installation parameter 

RECORD KEY clause, ALTiiRNATfi RECORD KEY clause, and 
! Lem description 

Installation p.irainetcr 

BLOCK CONTAINS clause 

SELECT ciauMe second impU'raentor-name 

Program coliiting sequence 

OPEN slatt-menr 
OUTPUT 
Other 
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TABLE I 1-1. FIT FIELDS SET FROM SOURCE CODE (Contd) 


File Organization 


Field and Symbol J c Value 


Clause or Statement Used 


Direct 


RKP, RKW, KA, KL 

HUB 

MBL 

HRL 

XN 

ON 
NEW 
OLD 


RECORD KEY clause, ALTERNATE RECORD KEY clause, and 
Item description 

BLOCK COUNT clause 

BLOCK CONTAINS clause 

USE FOR HASHING declarative 

SELECT clause second Implementor-namc 

OPEN statement 
OUTPUT 
Otlie- 


Actual Key 


KA, KL 

MBL 

RB 

ON 
NEW 
OLD 


RECORD KEY clause, ALTERNATE RECORD KEY clause, and 
item description 

BLOCK CONTAINS clause 

BLOCK CONTAINS cUusc .md Record De!.._rlption entry 

OPEN sL.iLi'ineiit 
OUTPUT 
OtluT 


Word Address 


BFS 


Rr.SERVE cldUie 


Keljtive 


BFS 


RESERVE clause 



FIT FIELDS FROM USE CLAUSE 

The USE clause of the FILE-CONTROL paragraph ot the 
Input-Output Section of the Environment Div;sion 
also affects the FIT. Values provided by this 
clause are compiled into the program, ovL'i-ridi.i^ 
values that would otherwise result f^om sojrre 
program lines. 

See the USE clause discussion for i list nf the FIT 
fields that c.in be referen.~ed in the clause. 



lency from the TILE control. ^jLdLomuiiL js processed 
before land overrides) any equivalency In the exo-i 
culLon c-ill control stdtdmcnt. For exariipje, if; 
'r'lLE,A,LFS=B is specif iod and LGO,A=C is specified, 
t!ie A=C is not recognised !>ince the FILE control 
St iltment changes A in B first. 

Figure 11-5 shows an example or COBOL ii..c proc- 

esbing Using CRM. Soo the CYBER Recorc Manager 

n-f.'rence nuinu.ils fot a description of the FILE 
control sLdtemenl. 



FIT FIELDS FROM FILE CONTROL 
STATEMENT 

The FILE control statempnt parameters become part 
of the FIT at the time the referenced file is opened 
during execution. Any parameter can be U!.ed; how- 
ever, parameters should not be sot .it execution 
time without a full awareness of COBOL assumptions 
and CYBER Record Manager execution- time processing. 

In gcni-ral, parameters on a FILE control statement 
should be confined to those permitted by the USE 
clause. In particular, the following fields cannot 
be used or will have no effect: 

EX KL LBL MKL 

FO KP LFN ULP 

HRL KT LT WSA 

KA LA LX 

A FILE control statement that specifies file 
equivalence can be used with COBOL. The equiva- 



IFETCH FUNCTION 

InlormatLon in a tit Lield can be retrieved by 
calling Lhe IFETCH function through FORTRAN. Tlie 
format is as follows: 

ENTER FORTRAN-X IFETCH USING 

file-name, ri t-f :elil-ndme , integer-1 . 

Fit-field-name must be an 01 or 77 level item of 
PIC X(IO) or a lO-characLcc literal. Tntegor-1 
must be a COMF-1 item. 

If a character fit field is be^ng returned, rede- 
fine integer-1 -as a PIC XCIO). If the file ib 
"Ifn", the data is lof t-justif ted and spaces are 
tilled with binary zeros. 

If field Is a flag, then Lnteger-1 is negative if 

tlio flag Is OK or YES, or positive if the flag is 

OFF 01 NO. An example of the TFETCH function is 
shown in figure 11-6. 
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IDENTIFICATION DIVISION. 
PROGRAM-ID. DELINQUENT. 
ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT CREDIT ASSIGN TO ISFILE -*- 

ORGANIZATION IS INDEXED -^ 

RECORD KEY IS CREDIT-ID.,* 

DATA DIVISION. 
FILE SECTION. 
FD CREDIT 

LABEL RECORD OMITTED 

BLOCK CONTAINS 5710 CHARACTERS.-* 
01 BAD-RISK. 

02 



Sets LFN to ISFILE 

Sets FO to IS 

Used to set RKU <inci KKP 



Sets MBL to 5740 (9 PRUs) and BT to K 



Sets RKW to 1 and RKP to zero 



Sets RT=T, HL=62, TL-5, CP-60, CL=2. MRL=98 



PIC X(10). 

02 CREDIT-ID PIC X<1Q) . ~^ — — 

02 PIC X(40). 

02 KOUNT PIC 99. 

02 PAYMENT OCCURS 1 TO 12 TINES DEPENDING ON KOUNT. ( 
03 MONTH-LATE PIC X<3). • 

PROCEDURE DIVISION. 
OP EN- IT. 

OPEN INPUT CREDIT. 
READ-IT. 

READ CREDIT NEXT AT END GO TO CLOSE-IT. 
WRITE BAD-RISK. GO TO READ-IT. 
CLOSE-IT. 

CLOSE CREDIT. 
STOP RUN. 



Corresponding FILE control statements: 

FILE(ISFILE,F0=IS,BT=K,RT=T,HL=62,TL=3,CP=60,CL=2,MRL=98,) 
F ILE ( ISF ILE ,RKW=1 ,RKP=0,KL=1 0,KT=S) 

Notes: 

Notice that both the RECORD KEY clause and the record description are required to set RKP and RKW. 
AAM will expect the ke/ for each record to be located in word 1, position 0. 

The OCCURS . . . DEPENDING ON clause (and the fact that KOUNT is included in the record description) 
cause the RT field of the FIT to be set to T. The fixed portion of the record description CHL) is 
62 characters. The trailer length portion <TL) is three characters. The beginning character posi- 
tion CCP) of the trailer count field of the record is position 60 (counting from 0), determined by 
location of KOUNT. The maximum number of characters in the record (MRL) is 98. 



Figure 11-5. COBOL File Processing Using CRM 



WORKING-STORAGE SECTION. 

77 MRL PIC XdO) VALUE "MRL". 

77 RESULT PIC 9(10) COHP-1 . 



PROCEDURE DIVISION. 



ENTER FORTRAN-X IFETCH USING OATAFIL, MRL, RESULT. 
DISPLAY RESULT. 



Figure 11-6. IFETCH Example 



FORTRAN INTERFACE 

A COBOL 5 prograa executes FORrRAN subrouC Lnt-s by 
specLtying FORTRAN-X or FTKj ami the name ot the 
routine in the EKTSR statement. Pardiiu-turs pans Co 
th.; .subroutines through tl-.e USING pl.rast; of the 
liMTER statement. The EKTER statement rflthout tlit* 
FORTRA.N-X or FTN'J or the CALL sU.itement should not 
ie used Lo cjII ;i FORTRAN subroutini* because extra 
Lnform'itLon cuntjined in tin; p.iriinhjttr list could 
r.auso I 111.' FORTRAN progr.i.a to abort or to process 
Lliti p.ii'nmeLer.s incurL'ectly. 

FORTRjVN 3 and COBOL 5 can perform -Input-output on 
i;ommoH fi'es only for PRIST statements in FORTRAN, 
fhc COBOL 5 progrdDD s'.ioalJ be the iimln program and 
iii.nt open the output die befure the subprogram is 
.rolled. This can be dccompUshed *itb n DISPLAY 
stitempiit or an OPEN statement speciCyiiig a. file 
./itli tilt' iraplementor-n;imf "OL'TPUT". Tf FORTRAS-X 
subroutines contain any PRINT statement!., the call 
to the FORTRAN compiler must eont.iiii the SYSEDTT 
,)iraineter (FTM.SYSEDIT.) . 



11-6 
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For best results, the parameter!; specified In the 
USING phrase of the ENTER sLateiaent should be either 
COMPUTATIONAL-1 Items, COMPUTA.TTONAL-2 items, level 
01 Items that arc a multiple of 10 characters in 
length, or literals. Table 11-2 shows correspond- 
ing data types In COBOL and FORTRAN. A discussion 
of the internal storage of these Items is contained 
in the paragraphs under the heading Numeric Data 
Format in section 1 , COBOL Source Frof;ram. 



TABLE 11-2. CORSESPONDING DATA TYPES 
IN COBOL AND FORTRAN 







COBOL 


FORTRAN 


COMP-1 


Integer Item 


COMP-2 


Real Item 


Data item with any other 
COBOL usaget 


Character String! 


Numeric literal without a 
decimal (if ENTER FTN5 is 
specified) 


Integer Item 


Numeric literal without 
a decimal (if ENTER 
FORTRAN-X is specified) 


Character String 


Numeric literal with a 
decimal (tf ENTER FTN5 
is specified) 


Real Item 


Numeric literal with 
a decimal (if ENTER 
FORTRAN-X is specified) 


Character String 


Alphanumeric literal 


Character String 


1 If character tjLrJngs art? pa 
programs, the FORTRAN 5 cha 
be specified as type CHARAC 
cliaracters other than type 
FORTRAN 5 to COBOL could ca 


ssed to FORTRAN 5 
racter iteiiB should 
TER. Returning 
character from 
jse an error. 



COBOL *> subprograms can be called by FORTRAN main 
programs only If the first COBOL subprogram to be 
called is compiled with Lht- MSB parameter In Liu- 
C0B0L5 control statement (COBOL^,MSB. ). All other 
subprograms can be rnmplled with the SB parameter 
or can he stacked with the main subprogram. The 
COBOL 3 subprograms cannot contain any DISPLAY 
statements or any Ol'K.V 'sLatHHii-nts specifying a file 
with the implementor-narae "OUTPUT". 



^ixed COBOL -ind FOHl'RAN tnput-ouLpuC oper.itions 
function only on the tile OUTPUT. For any other 
file, successful execution is not guaranteed. 



For more information see the FORTRAN 5 Reference 
Manua 1 . 



INFORMATION MANAGEMENT 
FACILITY INTERFACE 

information Management Facility (IMF) is a soitware 
package for describing, organizing, and controlling 
Litformatlon in an Information system. (It Is 
available for use with NOS only.) IMF uses three 
dirttrent types ol schuraas to control information. 
The ouuceptudl schema defines the rules governing 
tho InfurmaLlun base (data base). The internal 
scheoa controls the physical organization of the 
Inl'ormation. Ihe external schema deiines the 
Information from an application programmers view- 
point. Multiple exterii<il sclu'iaas can be del Incd to 
provide different views of the information base. A 
special iutormatlon base created hy IMF and con- 
taining the conceptual schema, InLernal schema, and 
external schema definitions is called the mcitabase. 



A COBOL priigram interfaces with IMF through Infor- 
mation MiUiipulatiuM Language (IML) statements 
within the program. The IMF precompiler scans the 
COBO.. program and Inserts one or more statements 
acceptable to the COBOL compiler before each I.HL 
statement encountered. The COBOL statements are 
Inserted without terminating periods. Therefore, 
It an IML 'Statement is the last statement of a 
paragraph, a separate line containing a terminating 
period must follow the line containing the IML 
statement. 



An XML statement is identified in a COBOL program 
by a dollar sign (5) in character position 7 of the 
source statement. A !.umm;iry of IML statements is 
shown in table 1 l-'J. The FIND and OBTAIN state- 
ments specify the rucord occurrence to be located 
or accessed. Tabic 1 L-4 gives the formats of the 
record si'lection t"xpression. 



The following rules apply to IML statements in a 
(.OBOL program: 

An IML statement must nut appear on Llie same 
line as a COBOL stMtitment. 

Only 'ine IML statement can be bpecifii-'d on each 
L Ine . 

An IML statement can be continued on muru than 
one line it a dollar sign is specii'lpd in char- 
acter position 7 of the continued line. Ail 
contiiiuaL ion li-iefi must be contiguous. No 
Intervening COBOL statement is allowed between 
an IML statement and its continuation line. 

i\ dolL'ir sign must not be specified in charac- 
ter position 7 of a line ttiat l;, all spaces. 
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TABLE 11-3. IMI, STATEMENTS 



Syntax 


Description 


CALL lnformaLloili-base-proci.'dure-[iarae 

Tnformation-base-procedurij-nanc must he thp. name of an 
Information base procedure declared I.) L'n« previously 
Invoked external schema. 


Transfers control trom au IML application 
program to an 1 nf ormatioii base procedure. 


CLOSE exturnal-schema-name 

External-schema-name must be the name of the previ- 
ously invoked external schema. 


Terminates processing of the portion of 
the Information base associated with an 
external schema. 


UHLETE record-name KECORD 

Rerord-name must be the name of a record Lypv definpil 
with delete permission in the previously invokod 
extern.l1 schema. 


Removes the current record occurrence of 
lhi» Indicated record type from the infor- 
mation base. Executed only If none of 
the constralTits defined in the conceptual 
schema are violated by the deletion. 


FIND record-sel action-expression 

Record names specified in the record selection ex- 
pressiont must bo the iiame of a record Lypt- iii Llie 
previously Invoked external schema. 


Establishes .i particular record occur- 
rence as the current record occurrence of 
a record type. 


INVOKE EXTERNAL SCHEMA exter.ial-schemd-namo OF 
CONCEPTUAL SCiUiMA schema-name [KEY IS literal] 

Extern.il-sc-hcma-n.imc; must be Che name of an existing 
exteriuil -ichema assoclatpd with the indicated concep- 
tual schema. 

Conceptual schema-name must be the name ot an existing 
conceptual 'jchi^m.i. 

KEY Clause 

Specifies a privacy key when a use or Information bane 
procedure privacy lock Is osl.ihlished in the eicternal 
schema. 


Specifies the name of a previously com- 
piled external schema, Identifies the 
conceptual schema from which tlie external 
schem.-i is derived, and (If required) pro- 
vides a pri>^acy key to match the use pri- 
vacy lock or information base procedure 
privacy lock establlsited in the external 
schema. 


INVOKE mil RKPAIR EXTEilKAL SCHEMA exterual-schema-na'ne 
OF CONCEPTUAL SCHEMA schema-name [KEY IS literal] 

External-schema-name must be I he narai' of .m exi-itlng 
external schema .issociated with ti\o indicated concep- 
tual Rchema. 

Conceptual schoma-naine must bt' the n.ime of an ext'stlng 
conceptual schem^i which cuntains invalla constraints. 

KEY Clause 

Specifics n privacy key when a use or informatluu base 
procedure privacy lock is established in the external 
schema. 


Specifleis the name ot a previously com- 
piled external schema, identifies the 
conceptual schema which contains invalid 
constraints and from wlilch tlie external 
schema is derived, and (11 required) pro- 
vides a privacy key to match tlie use pri- 
vacy lock or inlormatlou liase procedure 
privacy lock I'SLabLislieil In the external 
schema. 


MODIFY record-name RiXORD 

Rocord-name must be tVie name of a record typo defined 
with modify permission in the previously invoked ex- 
ternal schema. 


Changes values of data items within an 
existing sentence occurrence associated 
with tlio current record occurrence or the 
indicated record type. Executed only it 
none of the constraints defined in the 
conceptual .schema are violated by the 
modi fled occurrence. 
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Syntax 


Di'scrlption 

1 


OBTAIN r«rorii-soleftion-t'xpre.HSion 

Record name speoi fled in the record selccniiin a<- 
pressiont musL be chy name of -i record cype doi'lncd 
with obLain permission in the previoiisly invoked 
•-■xtcriial ijcbcma. 


Returns tne contents of cne sulected 
record occurrence to the appl icitlon pro- 
gram. Establishes a particular record 
Oi'currenoe as the current ri-cord occur- 
rence of a record tj'pe. 


OPH'T extiTntil-schoma-name 

KxLernal-scheraa-name must be the name of the prevl- 
<msly invoked external schema, txtornal schema tirust 
not airuady be open. 


Cauues the view oi" the inrorm.ition b.ise 
associ.iti'd with a pnrticul.ir external 
scherad to be prepared for processing. 


STORE record-narai- RElJORll 

Record-name must be the nnme of a record tvpe define.d 
with storu permission in rhe previously invoked ex- 
Cornal schem-i. 


Adds a ne.w occurrence ot a particular 
record type to the informfition b.ise. The 
new record occurrence becomes the current 
record occurrence of the rjcora type. 


I'Record selection exprt-ssion is tVial iinrLinn of t FINU or DBTAIN statement specitying tlie record occur- 
rence to be located or accuijscd. See table 11— *. 



TABLE 11-4. XML RECORD-SELECTION-EXPRESSION FORMATS 



Syntax 


Description 






record-name RECORD VIA access-path-name 


Format 1; Selects a particular record occurrence 
using an access path. 


record-name RECORD VIA access-path-name 
( NEXT HIGHER i 
\ PRIOR LOWER f 


Format 2: Selects a particular record occurrence 
or the closest record in sequence using an access 
path. 


J ff gT^ \ record-name RECORD VIA 
' access-path-name 


Format 3: Selects either the first or l.ist record 
occurrence in an access path. 


^ ' ' acccss-path-name 


Format 4: Selects a record occurrence relative to 
the current record occurrence in an access path. 


/ FIRST \ 

\ LAST J 

' NEXT ' record-name RECORD WITHIN 

1 PRIOR i coset-name COSET 

( OWNER ) 


Format 5: Selects .i record occurrence of either 
an owner record type or a. member record type in a 
coset. 


CURRENT record-name RECORD 


Format 6: Rcselects the current record occurrence 
of a record type. 


Legend : 

Record-name must he the name of a record type defined in Che e.xternal schema that was previously 
invoked • 

Access-path-name must be the name of an access path defined for the indicated record type in the 
external schema. 

Coscl-Oiime must be the name of a coset defined in the axteraaJ schema that was j..evlously invoked. 
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IMF COMPILATION 

To romplle and oxucuto n program cnntainlng TML 
stalomt'iiLs requires sev«ral .stiips. Flr^t the pro- 
grMBi ts Rubmitteil r<i the IMF compiii-r for prui-ompt- 
l.ition. The syntax of- thu TMI' loiilril ■it.itement id 
shown In figure 11-7. 



IHFZxxx. [lC=lfr 
C,UN=metaun] 


i3] [,LC=LfnD] 
C,S=lfn] 


C/F=metapfn3 








Figure 11-7 


. IMF Control Statement 









XXX can be: 
CMP 
CRS 
DML 
LDU 



the sc'lK'i.i.i/.itilltie!s conpi U-r sot 

thf- cTossrei compiior 

the precompilsr set 

the L0AD/LNL(Vi.i)/VALlI3ATK utility 



Thu L, I., K, UN, .iiid "i parameters arc !)plional inil 
.ire explained below: 



If omitted, the local tile INP'J'l i-cintainH 
the source input. 



Tbe lofHl nip flOMHlI.K contilns the Bource 
input. 



L 



= lfn 



Thf specified local tile contains the source 
i npu I . 



11 omlLlL-d, the liu-.-il file OUTPUT receives 
tho lIsLL-ig .ind iliaf^nostifS. 



UN^useniame 

The spyci f It'U user name contains Liif lafta 
data baiic. 



If ijiiillLed, the precompiled or the 
recreated code gous to the local tile 
SOUKCIii. 



S=lfn 



L=l) 



Till.- precompiled or the recreated code ijoos. 
specitied local tile. 



After precompilaLLon, the; progr-im is siibmittL-d to 
the COBOL compiler. IMF writes tin- prt-corapiiefl 
pr.isriiB Lo the tile SOURCE. The file SOURCK must 
be rewound belorc coinpl Jntlon. This tile name muat 
lie specitied wi the i-ontrol staLemL-iit as follows: 

COHOl.i, t=SOURCi:. 



IMF EXECUTION 

Hofore f.xec.ut Ion, Lho IMF library and the .-.ysLem 
■ llirar/ must be added to the local library. Thu 
control slatfinent to load these libraries is as 
tollows: 

l.DSKI ,l,IB=IMFLi)i/bYyLlB. 

'ihc followinjj i-oiitrnl statement is usL-d Co load and 
executK the application progr.iiii: 

:,GO.IBS=udur,S--'p[n,PW=pMrd,IO=n 

I'lif IBN, .■>, and PW parameter!, arc the same as tnose 
described tor prccoiapi l.il ion. The 10 parameLor is 
iii'vor rsquircd, but can be upecified when a valui; 
iiLliiT than the detault value Is desired tor the 
•umber oi butlers lined i ii accessing Liiu Lnlorraarion 
h.ise. 

Si-e tiie IMF application pnjgramiointi retorenco 
innnii.il for turther detjils on the use of IMF and 
[ML statements. 



The local file OUTPUT receives the diag- 
nos> L i c s . 1 1 W . 



L = l fn 



The speciricd local liU- ri'cc-ivc-s (Iik list- 
ing, iind the diagnostics. 



It omitted, rliu penn.uiciit file MKTAVS'J 
ciint-iiiis thi- mi^ti dntu base. 



F=ltn 



UK 



The K|)i'cifli'd porin.ini-nt file contains the 
meta data b-ise. 



I' omitted, the user number under wMch the 
job is running conciins the raeta data b.ise. 



MESSAGE CONTROL SYSTEM 
INTERFACE 

The COBOL Comraunication Facility tCCi") t.- u-sed wiili 
the Message Control System (MCS) to pats messajjcs 
nctween on-li.n' COBOL programs a.itl ufser terminals 
or other COBOL progr iins. MCS brings tclejrocossi ng 
.-:apabl li ties ilireccly into tlie standard syntax ,it 
I he COBOL language. It provides COBOL S with a 
fjcneralized method of inieuin.^, routing, and 
jOurnaliiig messajjcs in [he network undur the NOS 
operating system. 

Ti.fi Data Division ol ii fXJBOi. progrim includes the 
Commu.ii cation Section, which contains input bjlLer 
anu output luiffer areas used to iuLerfdCi- witn MCri. 
These arsas can be referenced by six statements in 
the Procedure Division which are ^.uralluri /i.-d as 
tollows: 
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ACCKPT MKSSAGE COUNT 

Returns Lhu number of nimploto MCS mi»s3agcs 
uxlsCliij; in a simple or rompouiirl i[iii'ii(.>, 

r)lSAIil.F. 

Allorfs MCS Lo break logicjl paths fontnin- 
fnf, s.iurc-ys, destiiial Lona, input quout'S , or 
output queues. 



ENABLE 



Establii^hes the logicil p.iths bctwcun ,-i 
specified symboiic name and all queues that 
receive messages from or send messages to 
MCS. 



PURGE 



Di3li;Lt>s partial messages to be transmitted 
to specified destinations. 



RECEIVE 



Returns a message, message segment, nr a 
portion of a message or message segment 
from a specified MCS queue. 

SEND 

Releases a mcsbagu, message segment, or a 
portion of ;i message or mess.-i..re segment to 
one or more specified destl nn Lions mnin- 
talneii hy MCS. 

Tlie COBOL Communication Facility is described in 
greater detail in section 14, Message Control 
System. 



OPERATING SYSTEM INTERFACE 

A COBOL programmer can interf^ice with the opernting 
system by using the following HCIS permanent file 
commands: 



APPEND 



Adda iiiforraation to the pnd of an eKisting 
Indirect access permanent file without 
retrieving the file. 



ATTACH 



Assigns a direct access permanent file to a 
job. 



CHANGE 



Changes certain characteristics .if a perma- 
nent rile. 



•-'ERMTT 



Allows a user to oxpLf fitly permit another 
user to access a prLvaLi? file in the ori- 
ginal user's permanent file catalog. 



PURGt 



Names the i lies to be 
perra;inent file ilpvtce. 



r>::miived from the 



REPLACE 



Purges 'in indirect Hccess porinanent file 
.ind replaces it with a copy of a local file 
un iiiriss stor.ige. 



SAVE 



Retains a copy of a local rile on mass 
storage ^is an indirect access tile. 



The permanent lile subroutine calls (figure 11-8J 
have two types oX parameters: mandatory parameters, 
which must appear in the order shown, and optional 
parameters, whioh can appear liv any order. The 
lormat Lo call these subroutines is us tullows: 

UNliJR KTN5 "Pf" USING "oomiaand", "li"n", "pi>\" 
[, paired keyword-and-value, ...] 



The first three parameters 
"pfn" — are required: 

"command" 



command", "Ifn", and 



Operation to be performed. It must be one 
of the permanent file commands listed above. 



'Ifn" 



The name of Llie iocjl file m be processed. 
This Is the iniplemonroi — naino followiug the 
ASSIGN phrase of the SELECT clause. If ifn 
is all spaces, lfn=pfn is assumed. 



"pfn" 



The name of the permaneuL file to be proc- 
essed, (f pCn is oil spaces, pfn^lfn is 
assumed. if no optional parameters are 
specifiird, pfn can he omitted, and pln^-lfn 
is assumed. 



The options for a permanent file request appear 
in any order after the required parameters. The 
options are specified by paired keyword-and- 
value form, so that unwanted upLluns need not 
be addressed: 



DEFINE 



Creates an empty direct access permanent 
file. 



The keyword is the first par.imeter of each 
pair. It is a nounumeric literal or alpha- 
numeric data item. 



GET 



Retrieves copies of indirect access perma- 
nent files for use as local flies. 



Che value is the second parameter of the pair. 
A comma and the value parameter must Immediately 
rnllow the keyword parameter to specify the 
value lor the keyword. 
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"APPEND", "Lfn", "pfn" t, "UN", "usernam", "PW", "passwrd", "PN", "packnani", 
"R", "r", "NA", "WB"3 

"ATTACH", "Lfn", "pfn" C, "M", "m", "UN", "usernani", "PW", "passwrd", "PN", 
"packnam", "R", "r", "NA," "RT", "WB"D 

"CHANGE", "nfn", "ofn" C, "PW", "passwrd", "CT", "ct", "H", ""•"' ■"BR"' "b;"^ 
"PR", "pr", "SS", "subsystem", "PN", "packnam", "R", "r", "NA", "CE", '148 D 

"DEFINE", "lfn", "pfn" C, "PW", "passwrd", "CT", "et", "H", "m", "BR", "br", 
"PR", "pr", "PN", "packnam", "R", "r", "S", "space", "NA", "MB"] 

ENTER FTN5 "PF" USING / "GET", "lfn", "pfn" L, "UN", "usernam", "PW", "passurd", "PN", "packnam", "R", 
\ "r", "NA", "«B"3 

•PERMIT", "pfn" C, "UN", "usernam", "PN", "packnam", "R", "r", "NA", "WB"] 

"PURGE", "pfni", "pfnj", ..., "pfnn" C, "UN", "usernam", "PW", "passwrd", 
"PN", "packnam", "R", "r", "NA", 'MB"] 

•REPLACE", "lfn", "pfn" C, "UN^^, '•usernam", "PW, "passwrd", "PN", ••packnam", 
"R^", "r^^, "NA^", •■WB"] 

"SAVE", "lfn", "pfn" L, "PW", "passwrd", '•CT", ••ct", "W, "m", "SS'^, 
"subsystem", "BR", "br^^, "PN", "packnam", "R", "r", "NA"', "WB"3 



Optional Parameters: 

Meaning 

Backup copy selection 

File access category 

Permanent file error message returned to the 40-characTer variable em. 

Ignore unneeded parameters. PF does not abort when valid, extraneous parameters are 

specified. The number of parameters ignored is returned to the CCMP-1 variable lup. 

Permission granted to alternate users for semiprivate and public files 

Select no-abort. The value is ignored by PF. "NA" processing is not the same as tor 

the NOS command. 

Password ... , . 

A pack name used in conjunction with the "R" parameter to identify the auxiliary device 

accessed in the permanent file request. 

Preferred residence 

Device type on ^hich the permanent file resides 

COMP-1 or CflMP-2 variable to which an error code is returned. 

Select real-time processing. The value is ignored by PF. 

Decimal number of PRUs requested for the file. Leading blanks can appear before the 

first digit of the number. 

Select special permanent file function; CE or MB. 

Identify the interactive subsystem associated with the indirect file 

User control information to be stored in the permanent file catalog on a SAVE or DEFINE 

request. On an ATTACH request, the contents of this catalog word will be returned. 

User control information can be any data that is to be associated with the file. 

User number . 

Return control to program when device is unavailable on ATTACH command and NA or RC is 

set. 
■Hggii "^Yi" Job waits for the mounting of disk packs and busy files. 

If the value for a keyword contains the string ••NONE", that keyword is ignored during execution. 



Key- 




word 


Value 


"BR" 


"br'^ 


"CT" 


"ct" 


"EH" 


em 


••lUP" 


iup 


"M" 


"ffl^^ 


"NA" 


"ig" 


"PW" 


"pswd- 


"PN" 


"pknm' 


..pp.. 


"pr" 


•*R" 


Mpl. 


^••RC" \ 




l"RRC^^ 


rc 


"RT" 


"rt" 


"S" 


"s" 


"SR" 


"sr" 


"SS" 


"ss" 


"UCW" 


UCW 


"UN" 


••un^' 


"UP" 


"ig" 



Figure 11-8. Format and Parameters to Process Permanent File Commands 
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■ See the [JOS I Reference Set, Voltmne 1, System Com- 
mands, fur basic permanent file operations. Sec 
the FORTRAN 3 reterence maniuit for information 
about sperlal proociislng available only through the 
PF subroutine call, such as the NA, RC, and UP 
parameters. 

QUEUED TERMINAL RECORD 
MANAGER INTERFACE 

Qiipiipil Terminal Record Manager (QTRM) utilities 
proi^lilti \.\\M COBOL programmer with an indirect 
IntiTf^cp to a rBlt'pror«>ss1ng network by using thu 
Network Access Method (NAM). COBOt programs use 
QTRM to rommunlcatc.- with up to 253 terminals 
I connected to a NOS nalnframe by NAM. Mc>ssages 
exchanged with these terminals are treated In a 
manner that Is functionally analogous to directly 
calling CYBER Record Manager to perform input and 
output. 

An applicalion program interface with (JTRM has two 
par ts : 

A formal data structure, called the network 
information table, is used us a coimnunlcatlun 
area. 

A set of subroiilln»;s Is used by the application 
program to trigger QTRM and network actions. 

■ See the NM Version 1 Host Applic:itlua Programming 
reference manual, section 8, for more details. 



NETWORK INFORMATION TABLE 

The COBOL program uses the network information table 
to i-ommunicate with Ql'RM. The program creates this 
table within its own field length. If overlays are 
used, the network information table must be created 
within the main, (0,0) level, overlay. The number 
of Lormlnals tliat communicate with the COBOL program 
determines the length uf the network information 
table. 



QTRM SUBROUTINES 

The subroutine calls liave few parameters because 
most communication to Qfl'RM occurs through fields xn 
the network information table. The progran sets 
these fields to specify the desired connection and 
the details of message format. 



The QTRM routines reside in the libraries NiiTiO and 
NETIOI). I'hese libraries are discussed in the NAM 
Ver'Slon 1 Host Application Programming reference 
manual . 



The ioLlowing statement calls QTliM subroutines: 

ENTER FTN5 QTxxxxx (USING yyyyl | 

Table Il-b gives descriptions diid parameters lor 
the QTRM subroutines. 



TABLE 11-5. QTRM SUBROUTINES 



Description 


Parameters 


QTCLOSE 

Ends communication with all connected 
devices or applications and with the 
network software simultaneously. 




QTCMD 

Alters the way QTRM is executing or 
performs some other internal acLivlty 
for the application program. 


cc 

Specifies tho. coinmand code for the activity or 
change in processing. This is the Data Oivluiun 
descriptor for a level 01 data item. 

wsa 

Specifies the buffer to be used in conjunction 
with processing the command code. Tnis is the 
Data Division descriptor for a level 01 data 
item. 


QTDBG 

Allows the npplicat Loii program to turn 
on or turn off Che logging of network 
data or .supervisory message traffic. 


dbugsup 

Turns tho lugging of supervisory messages on or 
off. This is the Data Division Descriptor for a 
Level 01 data item. 
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TABLE 11-5. yTRM SUBROUTINES (Contd) 



Description 


Pdrameters 




dbugdoL 

Turns the logging of d.ita messages on or off. 
This is Iho Data Dlviiivn descriptor tor a level 
01 data Item. 

avail 

Indicates whether the lugging code portion of 
AlH was loaded when ihit prijgr.ioi was loaded. 
This Is the Data Division descriptor tor a level 
01 data item. 


QTDM3 

Allows the application pr'igrrfm Lo dump 
i tR exchange package nnj central memory 
fielil length into the local diimp file 
ZZZZDMK. 


dump id 

Specifies an oct.il fi-digit dump identil'iur 
number. This is the Data Division descriptor 
tor a level Oi data LImii. 

ecd 

Determines whether the associated extended 
central storage is also dumped. This is Clio 
Data Division descriptor for a level 01 data 
item. 


QTRNDT 

EndK communication with a singlo devicu 
ar application. After this call is 
madu, mi riddlLloniii LnforiaaLion can be 
sent to the connection involved. 




QTGET 

Obtains input from a connection or 
statuK iiiformdll;)n about a conm-ct l>>n. 
llpdiUes all ti-rmlnal i-ntry Tields In 
llio tietwiirk information table. 


ta-in 

Spectries the symbolic address of the input text 
.irtia. This in the Data Division oescripCor for 
a level 01 data item with a lengtn deiinod by a 
valuu in iIil' network iuformiition tablu. 


QTLtSD 

Switches .i device connectioii tempor- 
arily t:> another application program. 
After this call is made, no dddilional 
information can be sent to the connect- 
ion involved until the connection is 
returned. 




QTLGS 

Mlows tlic applicJition program Co enter 
display cDilf nifiSrt.iscM 'iil-o the AlP 
statistical log file. 


WS!1 

Specifies the message to be written to the 
statistical log tile. This ii Liif l)ut;i Uivlsiun 
descriptor for a level 01 data item. 

size 

oivos tlm al/.e in central memory words of the 
mi'ssngt; LO be written tn the \IV statistical log 
file. This is the Data Division descriptor for 
a iovt'l Jl data item. 
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TAB[,K 11-^. QTRM SUBROUTINES (Contd) 



Description 


Parameters 


QTLINK 




Requpstii 4 comlt-'ctioii to Another appli- 
cation program for the purpose jf per- 
forming message transierb bctwouii thorn. 




QTLOG 


wsa 


Allows the application program to enter 
formatted or unformatted muusages Into 
the AIP debug log file. 


Specifies the message to be writ ton to the debug 
log :ile. This is the Data Division descriptor 
for a luvul 'Jl d.ita item. 




size 




(iiviis the size in central memory words of thu 
me-isrtge to be written to the debug log file. 
This is the Data Division descriptor for a level 
01 data item. 




format 




DeCerml nes whether the message is formatted or 
unformatted. This is the Data Division 
descriptor for a level 01 data Item. 


QTOPEN 


net-i iifor-tablu 


Begins commuiiical i.iii between the appli- 
cation priigram and the network. 
Identifies the address of the network 
informatljn table defined by the appli- 
cation program. 


Specifies Che symbolic address for ivord 1 in tne 
network information table. This Is the Data 
Division tliiser ipLoc for a level 01 data item con- 
taining level 02 or lower level data items. 


QTPUT 


ta-out-acn 


Sends the data through the network.. 
When lliis cfiU !■? completed, the data 
is usually in transit. 


Specifies the symbolic address of the output 
text area for the device or jppl teat ion. Thi.'^ 
is the Data Division descriptor for a Irivel 01 
data item with a le-igth detined by a value in 
the network information table. 


QTREL 


... 


Allows thu appUtnct;in progrira to route 
a Job to the Input queue to release, 
save, or proci.-ss tho currunL Inforiiia- 
tion in the debug lug file. 


Names the file containing the Job record to be 
copied to the AIP debug log tilj. This Is the 
Data Division descriptor lor a level 01 data 
Uera, 


This QTRM subroutine is not rctummendfjd 
for use wi th COBOL. 


insslth 

Gives the maximum number of words of each 
message to be saved on the AIP debug log tile. 
This is the Data Division descriptor for a level 
01 data item. 




nrewind 




Controls whether QTRM rewinds the job command 
record iiie before the QTRbL operation begins. 
This is the Data Division descriptor for a level 
01 data Item. 
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rABI-E 11-b. QTRM SUBROUTiNKS (Contd) 


Dcsc-rLptloii 


Parameterij 


QTSETF 

Kequosf^ Chat the operating systt-m aiito- 
matic-aXLy fbish the inpiit/oiitput Iwfter 
for the debug log file if the applica- 
tion program terminaLos .abnormal Ly. 


riush 

Flushes the debug log fLle automatically when 
abnormal termination occurs. 

r'etadr 

Specifies the KET address of the debug log file 
riiturned to NAM. 


QTSTC 

Allows the applifaLion prDgr.jm to tiirn 
the logging of AlP sfittstics on or ofl". 


onoff 

Turns the accumulation of st.Jtlstics on or off. 
This is the Data Division descriptor tor a level 
Oi data item. 

avail 

l-idi Cites whether the statistical accumulation 
portion ot All' w.is loaded when the program was 
loaded. This is the O.ita Uivislon descriptor 
for a level 01 data 1 t>im. 


QTSb'P 

Sends ;i!i tisynohrnnous supervisory mes- 
sage to NAM after QTOPEN is called. 


sine 

Spceifios the supervisory luessagf code for the 
supervifaory message that the program wants to 
send. I'his is the Data Division descriptor L'or 
n level 01 d.iLa Item. 

wsa 

Specifies the buffer to be used in conjunction 
with processing the supervl^jory message code. 
This is the D.ita Division descriptor for a level 
01 data irem. 


yrrtp 

Sends .1 synehronon-i siipp.rviiiory mesisage 
through the network. 


ta-out-acn 

Specifies the Kymbolic address of the output 
text area Cor the device -ir application. This 
as the Data Division descriptor Lor a level 01 
data item with a length defined by a value in 
the network information Lable. 



SORT/ MERGE INTERFACE 

The Sort/Merge facility of tlie (.OBOL S language 
interfaces directly to Sort/Merge ^. COBOL 5 can 
interface with Sort/Merge in two ways: 



Writing the SORT or MliliCiE instructions in COBOL 
syntax as part of tlic COBOL prjgram. See 
section 7, Sort/Merge FaclliLy. 



Calling Sort/Merge 5 directly from a COBOL 5 
program using the ENTER stateintMil as described 
below. 



COLLATING SEQUENCES 

Whu.T using the COBOL Sort/Mftrge lacllity, the 
collating ^.equences used are specified directly, 
and the alphabets used correspond directly to those 
avdiJ-ible in a directly called, or couLr')l state- 
ment called, sort or merge. The identifications 
used In COBOL Sort/Merge 3 are; 

COBOL So ft /Merge > 
ASClI-64 ASClie 
CDC-64 COBOL?) 



EBCDIC 



EBCDlCfa 
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Both lliu product dnd the languagt! laciLity allow ,j 
usar-spertf ii'd collfiting sec|ui.">cf to bo di-flnud. 
For COBOL roll.itlni; sequences whlrh "ire not defined 
In the Sort/Mprge produrt, COBOL duCiney a user- 
specified sequence ,\nd p.iflses it to Sort/Merge. 



Tabiy 11-6 gives descripLLons of the Sort/Hcrge | 

proceaures and parameters. Sye t!ie Sort/Merge 
VuTsioii ^ fureruiice nunual ror a coiiipIi>te 

descrlptJ'in of the Sort/Merge procedures. 



DIRECT CALLS 



A COBOL "> program c.in make direct calls to Sort/ 
I Mer);e 5 procedures by uRiiig ENTER statLTntnts. 

ENTER FTN") SMbxxxx USING 



Callj to thu pruceduriis cannot be mixed vritii Lhu 
SORT or MERGE verb. They cannot be called during 
the execution of a SORT or MERGE Input or output 
procedure, and thu SORT or MERGE statement cannot 
!)e executed in a series oi direct calls (between 
SM5S0RT or SM5MERGE, and SM5END). 



TABLE 11-0. SORT/MERGE PROCEDUKKS 



Syntax 


Description 


HM5S0RT USING option 

RusuLt ".-irruy" na^io or the intogt-r 


Signals the beginning of the 
specifications of a sort. 


SH5MERGE USING option 

Result "array" name or the integer 


Si;^!naJs the begiiinlng of the 
specifications of a merge. 


SM5FR0M USING "fi lul"l , "rili.-2"i ... 


Specifies the input tiles from 
which records to be sorted or 
merged are read. 


SM5T0 I'SING "file" 


Specifies the file to which sorted 
or .nerged r^jcords .ire written if 
records are left after owncode 
routine processing. 


SM5KEY USING first, length, "type", "ad" 

first First bytii or bit of the key field 

length Number of bytes or bits in the key Held 

"type" Name of key type 

"ad" Order, oitiicr "A" lor ascending or "D" for descemiing 


Specifies a single key field for 
the sort or merge. 


SMSE USING "file" 


Sped ties the file to which error 
messages are written. 


SM5EL USING error- level 

Alphabetic character enclosed in quotation marks or a COJIF-l 
item 


Specifies the error level to be 
reported. 


SM5ENR USING numeric-parameter 

Number of records to be sorted or merged 


Specifies the estlnated number of 
records to be sorted or merged. 


SM5FAST USING option 

Option is: "YES" or "Y" 
"NO" or "N" 


"YES" bpecifies certain sort or 
merge input and output records to 
be read and written directly by 
Sort/Merge rather than by CYBER 
Record Manager. 
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TABLE 11-0. SORT/MERGR PROCEDURES ICoiitd) 



Syntax 


Ousjcription 


SMSOFL USING numeric- p,irnnif Lor 


Speciiies the number of charai-ters 
in fixed length records entering a 
sort or merge trom an owncode 
routine. 


SM50MR1, USING numcric-paramfiter 


Specifies the maximum length in 
characters of any record unturlng 
a sort or merge from an own-ctxle 
routine. 


SM5RETA USING option 

Option is: "YES" or "Y" 
"NO" or "K" 


"YES" specifies records with equal 
sort keys to oe output in cho same- 
order as they are input. 


SUSSEQX USING "name" 

Collntlnp; Ki;ciutMU!> niimc 
S!<5SEQS USING "char" , "ch.ir" ... 

Chararter in the (-ollntliTg si quunce 

SM5SEQR USING "YES" or "Y" 
SM5SEQA USING "YES" or "Y" 


Spucill(;s ii usur-dctined collating 
sequence that is refisrunccd by the 
SMiKEY subroutine. Four different 
cal Is are available. "YES" is 
required dummy parameter. See the 
Son 5 Rt'foronce Manual f-jr fur- 
ther details. 


SM5ST USING COMP-1 item 


Specifies a COMl'-I data Ham that 
is set to a value representini; tlie 
lii};hc:st level of error that occur- 
red during the sort or merge. 


SM5SUM USING first, length, "type", r,.p 

first KirsL byte or bit of the "sum field 
length Nuiiibi?r o£ oytot. or blLs in the sum ili-ld 
"type" S.ime of nunuTif key type 
rep Number ot c-onR&nitive fi<>lcl!! zn he sumiaeil 


Specifies fields that are to be 
summed in records with equal key 
valued. 


SMSKNl) 


Terminates the sort or merge 
specification and initiates 
sort/merge processing. 



The following restrictions and definitions must be 
used: 

Ml nlphnimineric parameters must be either 

nonnumi-ric Llterilsi or lO-charactar data items 

synchronized left. (Tt is host to use cilhcr 

77 level items or 01 level Jte.ns). 'Ihe parain- 

alur value must be justified left in the item. 

All numeric parameters must be either COMP-1 
data items or integer llter.-jls. 

II' "file" is specified as a parameter, it misL 
ho t lif logical 1 L Li! name known to tne operating 
systt-m. Lf It is a file used in llie COBOL 
program, "tile" is the Implenientor-iinine in the 



SELECT clause. In this case, the file must be 
open at the Lime SHJEND is called. The open 
mode does nut matter. if "file" iii not speci- 
fied in the COBOL program, the block and record 
types and recor^l lengths default as specified 
in Lhu Sort/Merge b Reference Manual. A FILE 
control st.'itemLMiL or USK i'Ijusl' must be used Lu 
sptjcify rccora and block Lypo lor iilus not 
specified In Lhf COBOL progrnra. The COBOL 
default is Rl=l'" iind Bl'-C dud Lne Sort/MerjSL- 
default is i<.i'=/; and UT'C. 



If "array" is specified as a paraneL.T (m 
SMiMLitG or SMoSORT), it must oe a COMP-i array 
such as figure! 11-9. 
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01 ARRAY 

02 ARRAY-ITE« PIC 9999 COMP-1 OCCURS 16 TIMES. 



Figure 11-9. COMP-1 Array Codiny 



■ isiruL b- fiHoJ Irora 3 COBCiL pr'j^r >m 

the .i.iinp jt .111 e.xtiirn.il subroiiti ne 

IS .1 IJSINi; p.ir.irae.tpr, A 

.1 F;)i{TRAN .■iiiliroii?] Ill- i-uuld 

in iwiii^odi* ruiitim*. Tf -i 

iisi't! IS '111 t)wtic*i*fli* rciiiliiii'. 



SMbOWN'ii 

iMii'iot bo ;>.!'. si'.i 
COMPASS |)ro;-;r iin ur 
he wvi I re 1 f n I'd 1 I 

COHOl. Rlli)prrj,rr-i n i ■! 



Lhi; PSOCKDIIKK DUMIION USINC p::r.iiin.'t .t lift. 



;iii;,r ,),ii it c.) f;o.4P-l Ltenis for t.ii« r«i-onl 
it-'ii^lri iiii.l fl.ij; .mil .in .ilplia.-l.i.aerlr iCt>in Itir 

Fi.!?iires il-10 and 11-U ilLualriLe ('no ni-i liuiU uf 
i-;«.'UiK SORTS liifrfi't!/ rfnd Civ mcLhod'j :)f i-n Lii 'ijj i 
i;OB()i. iiw;u"iidi> r-juti.ne. 



IDENTIFICATION DIVISION. 

PROSRAH-IO, SORTIT. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 

ni COLL-SEO PIC y(10) value "ASCII6". 

PROCEDURE DIVISION. 

STARTT. 

► THIS INITIALIZES SORT 

ENTER FTN5 SHSSORT. 

* SPECIFY INPUT AS THE DATA FILE 

ENTER FTN5 SH5FR0H USING "INPUT". 

* THE KEY IS IN COLUMNS 1 TO S - ASCII COLL SEQ ASCENDING 

ENTER FTNS S1SKEY USING 1, S, COLL-SEQ, "A". 

► CALL A COMPASS ROUTINE FOR THE OUNCOOE ROUTINE 

ENTER CBOWN, 
" THIS CAUSES THE SORT TO EXECUTE. 

ENTER SMSENO. 
DISPLAY "SORT COMPLETED". 
STOP RUN. 



Figure 11-10. Calling S0RT5 Directly 



IDENTIFICATION DIVISION. 

PROGRAM-ID. OWNT. 

DATA DIVISION. 

LINKAGE SECTION. 

01 "RETURN-CODE 

01 RECORD-LENGTH 

01 SORTED-RECORD 



PIC 
PIC 



COMP-1 . 
COMP-1 . 
PIC X(IO). 
PROCEDURE DIVISION USING RETURN-CODE, SORTED-RECORD, 

RECORD-LENGTH. 
STARTT. 

DISPLAY "REC = ", SORTED-RECORD. 
HOVE n TO RETURN-CODE. 
EXIT PROGRAM. 



IDENT CBOWN 
ENTRY CBOWN 
* THIS ROUTINE CALLS SMSOUN TO DEFINE A COBOL OWNCODE ROUTINE 
CBOWN DATA 

SA1 PARAM 

= XSHSOWN"^ 
CBOWN 
4?/0,1*S/ = XOWNT 



PARAM 



RJ 
EO 
VFO 
END 



Figure 11-11. Calling a COBOL Owncode Routine 
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TRANSACTION FACILITY 

The TAK p;ir.iiiiL'Lor Lnlorms the CUB0L5 fompiler that 
thu objuc'L hinury cod« will .iper.iCi- in ;i traiis.irtion 
d'Al') Piivi roiiinunl. The rumpiUT ihoii generates a 
Ust of iu!i-i ima library extHrnals th.iL jru sraailcr 
th.iii Lhosi- jjeiit-ratod tor .1 :ionlr.int..ifLio[i environ- 
ment. Smallui f ii- J d- lengths .ire .isKfic-i.iLod with 
Lhc- program when It bi'cumes absolute, and tot.il 
nidmory reiniiri-nicnts are rpdured for i he sm-iil 
transaction processor. 

When compiling 3 TAK task, the COBOL^ compiler cill 
statL-ment sliouLd specify the TAF pararaeter, Thi- 
AKS1-77LEFT paraiaeter will loft justify 77 level 
i ti-rah and should ne iisu'd if any 77 level ilems that 
have, a iisajjc ot DISPLAY .^re passed to TAK routines. 
A STOP RUK !)t.-iteiiK'UL in the main program, or in any 
subproRram, completes the execution ot the task. 
RNPRR CEASE or SEND with CRASF, should not be used 



iiocauve Hwy bypass COBOL termination rijiitLiies and- 
ean cause serLrii reusable tasks to fiil. 



8-BIT SUBROUTINES INTERFACE 

The !i-bit subroutines can be used by the COUUi. 
prijgr.imraer L» convert, movi.-, corepuro, pack, Aim 
unp.ick IBM sequent i-il 8-bll I tins and CIJC internal 
CiLes and lo niaaipuLale b-bit characters. Mi 
input and output operations (except tor thu COPYiiP 
utility) are pertormed by CViiER Record Manager. 
'.MhOL interfaces with tiie o-bit subrouLinei> thruugli 
COMPASS as follows: 

EKTEK COWASS Xxxx USING 



A summary of K-bit subroutines 
11-7. For more informatlju seo 
tines relerence manual. 



is i^iven m table 
the iJ-alt Subrou- | 



I'ABLli 11-7. S-BIT SUBROUTINES 



Description 


Parameters 


XFILE 


i-ile, workspace, tiie-string, size. 




Defines a file to be processed 






by the input— output sui>rou- 






tines. 






XWRlTf 


workspace, source[, ciinversion-iLrlMgl . >statusj|. 




Writes data to the tile work- 






space -irea dot i nod ay the 






XFILE calling St.'(|iience. 






XRRAI) 


woriv..-.paci-. deRfiuiiliiin[ . coiiver Tion-stringl , ^tatubjl. 




Reads the current record. 






XRI':Kh,\D 


workspace, ilestinatluu; . conversit)[i-strlng[ , statnsJJ. 




Reads the current record. 






XCOHP 


xy, bouri.e-1, souri;e-2, stalusj. lengthl, position-l[, position-^J J J . 


Compares two character 






strincrs. 






XMOVE 


KV, source, destinatijul . lengthl, position-s[, positlon-dj j J 




Moves character strings. 






XPACK 


dtrins-u, string-pi. lengthl, position] J . 




Packs character data. 






XPAND 


stri,is-u. ?Lrlng-pl, LeiigLhl, pobi:.ion||. 




Unpacks character data. 
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COMPILER CALL AND EXECUTION 



12 



Compilation and execution of a COBOL 5 program are 
Initiated by control statements that conform to 
operating system syntax. The COBOL 5 compiler Is 
called with the C0B0L5 statement. If the program 
Is compiled and executed in the same run unit , the 
execution control statement LGO is the default file 
name that contains the binary object program and Is 
used to load and execute the program. If the 
program is compiled and executed in separate run 
units, the program can be executed with the LOAD 
and EXECUTE statements. 

Optional parameters can be specified on both the 
compiler call statement and the execution call 
statement. Parameters can appear in any order and 
are separated by commas. The control statements 
cannot be continued beyond one line. Control 
statements can be entered Interactively through a 
terminal or entered through a card deck. 

During source program compilation, the compiler 
generates various diagnostic messages. The user 
can control the type of messages listed, the 
location of the messages , and the system response 
to the messages through parameters on the compiler 
call statement. Refer to the COBOL 5 diagnostic 
handbook for a complete list of compilation 
diagnostics. Execution diagnostics are listed In 
appendix B. 



COMPILER CALL 

The COBOL 5 compiler is called with a control 
statement that conforms to the operating system 
syntax. The control statement cannot be continued 
beyond one line. The compiler call can be speci- 
fied in one of the following formats in which p 
Indicates a parameter: 

C0B0L5. 

C0B0L5(pl[,p2] ...) 

COB0L5,pl[,p2] ... . 

More than one program can be compiled by a single 
call to the compiler. The programs should follow 
each other without separation when several programs 
are to be compiled from one source file. The 
compiler recognizes the Identification Division 
header as the start of a subsequent program, and 
terminates the program being processed before 
beginning compilation of the next program. The 
first program is compiled as a main program, a 
subprogram, or a main subprogram, depending on the 
SB and MSB parameters (described later in this 
section) . The second and all subsequent pro- 
grams are compiled as subprograms (as if SB were 
specified on the C0B0L5 statement). 

During compilation the compiler automatically 
increases the field length for the job as more 
space is needed. The compiler can be constrained 
to operate in a fixed field length by specifying 



the CM parameter on the job statement. This might 
result in significantly Increased compilation time, 
however. The compiler cannot be constrained to 
operate In less than the field length needed for a 
trivial program plus 2OOO3. 



PARAMETERS 

Specification of any parameter is optional. Any 
default that results from the omission of a 
parameter could be changed by an Installation. 

If no parameters are specified, all default 
parameters are selected, and the compiler call 
appears as : 

C0B0L5. 

A variety of compilation options can be specified 
in a parameter list following the compiler call 
name. If the name of the source input file is 
NEWPR, for example, the compiler call appears as; 

C0B0L5,I=NEWFR. 

If a parameter list is specified, it must conform 
to the syntax for job control statements as defined 
in the operating system reference manual, with the 
added restriction that a comma is the only valid 
parameter separator. 



PARAMETER OPTIONS 

The parameter options are described in the following 
paragraphs. They are discussed in alphabetical 
order of the abbreviation that specifies the 
parameter. 



ANSI Extensiohs Control 

The ANSI parameter specifies whether use of 
non-ANSI extensions to COBOL as described in the 
American National Standard X3. 23-1974 are to be 
diagnosed and, if diagnosed, which severity level 
is diagnosed. Multiple options for the ANSI 
parameter can be selected by separating the options 
with a slash. The valid options are: 

omitted 

Extensions to the American National 
Standard X3. 23-1974 are accepted by the 
compiler without diagnostics, numeric 
display Items are edited by the DISPIjAY 
statement, and level 77 items are stored 
SYNC RIGHT. If non-ANSI reserved words are 
used as user-defined words, diagnostics 
result. 



ANSI 



Equivalent to ANSI-T. 
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ANSI-T 



I APO Apostrophe Qiaracter 



Extensions to the ASSl standard are 
diagnosed and treated as errors with 
severity T. The EL-T parameter must also 
be specified to obtain a diagnostic listing 
of non-ANSI statements. 

ANSI-F 

Extensions to the ANSI standard are 
diagnosed and treated as errors with 
severity F. 

ANSI=T and ANSI=F are mutually exclusive. 

ANSI=NOEDIT 

Numeric display items are not edited by the 
DISPLAY statement. This parameter requests 
strict ANSI interpretation. Items that 
contain embedded decimal points or over- 
punched signs are displayed without editing. 

ANSI-77LEFT 

This parameter must be specified if a level 
77 item is specified in the USING phrase of 
a CALL statement and the corresponding item 
Is defined as a level 01 item in the 
LINKAGE SECTION of the called program. 
This parameter must also he specified if a 
level 01 item Is specified in the USING 
phrase of a CALL statement and the corres- 
ponding item is defined as a level 77 item 
In the LINKAGE SECTION of the called pro- 
gram. This parameter causes level 77 items 
to be stored SYNC LEFT. If ANSI-77LEFT Is 
not specified, level 77 items are stored 
SYNC RIGHT. 

When compiling a TAF task, this parameter 
will left- justify 77 level items. It 
should be used if any 77 level items which 
have a usage of display are passed to TAF 
routines . 

If a main program is compiled using the 
77LEFT option, then all subprograms should 
be compiled using the 77LEFT\ option also to 
avoid conflicts between two level 77 items. 

ANSI-AUDIT 

This parameter selects the parameters 
ANSI-NOEDIT and ANSI-77LEFT. The parame- 
ters ANSI-T or ANSI-F are not compatible 
with this parameter. 

When this parameter is used, non-ANSI 

reserved words are not recognized as 

reserved words and, therefore, can be 
user-defined words. 

If a group Item containing a variable- 
occurrence data item is used as a receiving 
item, only that part of the table area 
specified by the value of the DEFENDING ON 
data item is affected. 

The collating sequence for an indexed file 
Is the native sequence. If ANSI-AUDIT is 
not used , the collating sequence of the 
program (instead of the native sequence) is 
used for an indexed file . 



The APO parameter controls the character that can 
be used as the delimiter of nonnumerlc literals in 
the source program. The valid options are: 

omitted 

Nonnumerlc literals in the source program 
are delimited by the quotation mark charac- 
ter, which has a display code value of 64. 



APO 



The ASCII apostrophe character with a 
display code value of 70 (Hollerith 11-8-5 
punch, sometimes punched by an up arrow 
key) delimits nonnumerlc literals in the 
source program Instead of the quotation 
mark character of display code value 64 
(Hollerith 8-4 punch, sometimes punched by 
a not equal sign). 

This option reverses the roles of ' and " 
such that " can be used within an alpha- 
numeric literal the same as any other 
character . 

Within a source program, this option can be 
selected by the QUOTE IS APOSTROPHE clause 
of the SPECIAL-NAMES paragrapih. 



B Binary Output 

The B parameter specifies the name of the file to 
which binary output from compilation is written. 
The valid options are: 



omitted 



Binary output from compilation is written 
to file L60. 



Binary output from compilation is written 
to file BIN. 



B-0 



No binary output is produced during 
compilation. 



B=lfn 



Binary output from compilation is written 

to file Ifn, with Ifn being one through 

seven letteris or digits beginning with a 
letter. 



BL Burstable Listing 

The BL parameter controls page ejects In the 
listing produced by the compiler. The valid 
options are: 

omitted 

Triple space separates the program listing, 
diagnostics, cross reference listing, and 
any cross 'reference map. 
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BL 



DB-0 



Page eject occurs between various parts of 
the listing. 



CC1 COMP Equivalence to COMP-1 

The CCl parameter affects the storage and 
processing of data items described as COMPUTATIONAL 
(COMP) Items. The parameter Is selected when CCl 
is specified. Selection of this parameter allows 
programs written for other compilers to gain 
the efficiencies of COMPUTAT ZONAL- 1 (COMP-1) 
processing. The valid options are: 

omitted 

Data Items described as COMP are stored and 
processed as COMP items. 

CCl 



None of the debugging options applicable to 
this parameter are selected. 



DB 



Equivalent to DB-DL/SB/B. 



DB=B 



Binary executable code is produced regard- 
less of all errors In the source program. 

Lines with errors of severity C or F result 
in compilation of a call to an execution- 
time abort routine; execution of those 
lines aborts the program. If DB=B is not 
selected, the first occurrence of a C or F 
error inhibits generation of executable 
code. 



Data items described as COMP are stored and 
processed as COMP-1 items. 

D Data Base Subschema File Identification 

The D parameter specifies the name of the file on 
which the subschema specified in the SUB-SCHEMA 
clause resides. Specification of this parameter is 
valid only for a COBOL program that is to use the 
CYBER Database Control System (CDCS). The valid 
options are: 

omitted 

Subschema for CDCS is not used; if the 
SUB-SCHEMA clause appears in the program, 
it generates a fatal compilation error. 



DB-DL 



D=0 



Subschema for CDCS is not used; if the 
SUB-SCHEMA clause appears in the program, 
it generates a fatal compilation error. 



Debugging lines in the source program 
(lines with a D in column 7) are compiled 
as executable code. 

If DB^DL is not selected, all debugging 
lines are treated as comment lines, unless 
the DEBUGGING MODE clause appears In the 
program. The presence of the DEBUGGING 
MODE clause causes the DL option to be 
ignored. 



DB=ID 



Debug tables are produced during compilation 
to make available all CID features designed 
for COBOL. See section 10, Debugging Aids. 

When the DB=ID parameter is specified at 
compilation time, DB=RF and DB«SB are 
automatically selected. 



DB=RF 



Subschema for the CDCS Interface resides on 
a file with the same name as that of the 
subschema. 



D=lfn 



Subschema for the CDCS Interface resides on 
file Ifn, where Ifn is one through seven 
letters or digits beginning with a letter. 



DB Debugging Selected 

The DB parameter selects debugging options. 
Multiple options can be specified by separating the 
options with a slash. The valid options are: 

omitted 

None of the debugging options applicable to 
this parameter are selected. 



Code is compiled such that reference 
modification values are checked during 
execution to ensure that the values are 
within the bounds of the item being ref- 
erence modified. An invalid value aborts 
the program with a dayflle message that 
Identifies the line with the incorrect 
value . 

If DB=RF Is not specified, reference 
modification values are not checked during 
execution. 



DB=SB 



Code Is compiled such that subscript and 
Index references are checked during execu- 
tion to ensure that all references to 
tables are within the table bounds. An 
out-of-bounds reference aborts the program 
with a dayflle message that identifies the 
line with the Incorrect reference. 
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If DB=SB Is not selected, subscripted and 
indexed references are not checked during 
execution. 



DB=TR 



Paragraph trace occurs during execution. 

If DB=TR Is not selected, paragraph trace 
does not occur. 

If tDF and DB=TR are both specified, the 
termination dump indicates the last line 
and paragraph executed. If DB=TR is not 
specified with TDF, the last input-output 
statement executed is indicated. 



E Error File Name 

The E parameter specifies the name of the file to 
which error information is written. When the 1X)=S 
option is specified, information written to the 
file specified by the E parameter is also written 
to the file specified by the L parameter. If the 
Ifn specified by the E parameter is the same as 
that specified by the L parameter, information is 
written only to the listing file. The valid 
options for the E parameter are: 

omitted 

Error information specified by the EL 
parameter is written to the file OUTPUT. 



Error information specified by the EL 
parameter is written to the file ERR. 



E=lfn 



Error inf ormaton specified by the EL 
parameter Is written to the file with the 
name Ifn, where Ifn Is one through seven 
letters or digits beginning with a letter. 



EL Error Level to be Reported 



The EL parameter Indicates the severity level of 
errors that are listed on the file specified by the 
E parameter. Specification of a particular level 
selects that level and all higher levels. The 
valid options are: 

omitted 

Errors of levels W, F, and C are listed. 



EL 



Equivalent to EL=F. 



EL=T 



Trivial errors, plus all errors of levels 
W, F, and C, are listed. Federal Informa- 
tion Processing Standard (FIPS) errors are 
also listed. 



Level T errors indicate a suspicious 
usage: although the syntax is correct, the 
usage is questionable. EL=T is required 
to obtain a listing of the messages 
reported as UNLISTED NON-ANSI ERRORS on the 
diagnostic stimmary. 



EL=W 



Warning errors, plus all errors of levels F 
and C, are listed. 

Level W errors indicate the syntax of 
the statement is incorrect and the 
compiler has made an assumption aad 
continued compilation. 



EL-F 



Fatal errors, plus all level C errors, are 
listed. 

Level F errors prevent compilation of the 
statement. Unresolvable semantic errors 
and propagated errors caused by earlier 
level F errors are among the causes of 
level F errors. 



EL=C 



Catastrophic errors are listed. 

Level C errors are fatal to compilation of 
the current program. Compilation resumes 
at the Identification Division header of 
any program immediately following without 
an intervening file boundary. 



ET Error Termination 

The ET parameter specifies the action to be taken 
by the compiler when compilation has completed. If 
an error of the specified level or higher occurs, 
the job skips to the EXIT control statements. The 
valid options are: 

omitted 

The next control statement in the Job 
stream is executed after termination, 
despite any errors diagnosed during 
compilation. 



ET=opt 



The compiler aborts if the executable code 
contains any errors of at least the T, W, 
F, or C severity indicated by opt. Levels 
are those indicated by the EL parameter. 

Level T or level W errors produce executable 
binary code. Level F and level C errors 
produce a binary program that causes the 
loader to inhibit loading, unless the B 
option of the DB parameter is specified. 

The job resumes after any EXIT(s) control 
statement In the job stream. 
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FDL Fast Dynamic Loader Processing 

The FDL parameter specifies the name file that 
contains directives pertaining to subprogram 
loading and data base usage. (See section 8, 
Memory Management.) The valid options are: 



I=lfn 



Card Images of program to be compiled reside 
on file Ifn, where Ifn Is one through seven 
letters or digits beginning with a letter. 



omitted 



All subprograms must be resident at the 
same time. The CALL statement must specify 
a literal and the first seven characters 
must be unique in the run unit. If a 
termination duin> is selected through the 
TDF parameter, a dump of only the main 
program is taken. 



L Listing File Name 

The L parameter specifies the name of the file to 
which the compiler writes source listing and any 
other requested information except diagnostics (see 
the LO parameter). The valid options are: 

omitted 



FDL 

Equivalent to FDL=FDLFILE. 
FDL=lfn 



Source listing, diagnostics, and information 
selected by the LO parameter are written to 
file OUTPUT. 



The FDL file resides on file Ifn, where Ifn 
is one through seven letters or digits 
beginning with a letter. 

If a termination dump is selected through 
the TDF parameter, all programs specified 
in the FDL file are included In the dump. 



FIPS Level Diagnosis 

The FIPS parameter specifies diagnostics for 
language features of the Federal Information 
Processing Standard (FIPS) and controls the 
severity level of errors diagnosed. The ANSI 
parameter and the EL=T parameter must be specified 
to obtain a listing of these diagnostics. The 
valid options are: 

omitted 

No diagnostics for Federal Information 
Processing Standard levels are issued. 

FIPS 

Equivalent to FIPS=4. 

FIPS=n 

Language features above the specified 
Federal Information Processing Standard 
level are diagnosed; n specifies level 1, 
2, 3, or 4 (as specified in FIPS PUB 21-1). 



I input File Name 

The I parameter specifies the name of the file that 
contains the program source. The valid options are: 

omitted 

Card images of program to be compiled reside 
on file INPUT. 



Card Images of program to be compiled reside 
on file COMPILE. 



Source listing, diagnostics, and information 
selected by the LO parameter are written to 
file LIST. 



L=0 



No listing is produced. 

L=lfn 

Source listing, diagnostics, and information 
selected by the LO parameter are written to 
file Ifn, where Ifn is one through seven 
letters or digits beginning with a letter. 



LBZ Leading Blank Zero 

The LBZ parameter affects the treatment of leading 
blanks in numeric fields. This parameter is 
selected when LBZ Is specified. Selection of this 
parameter increases the size of the binary output 
and significantly slows execution time. The valid 
options are: 

omitted 

Numeric fields that contain blanks are in 
error. 



LBZ 



All leading blanks in numeric fields are 
treated as zeros in arithmetic statements 
and comparisons except comparisons per- 
formed by the Sort statement. See section 
7, Sort/Merge Facility. 



LO Listing Options 

The LO parameter specifies the information that is 
to be listed on the compiler output listing file 
specified by the L parameter. Multiple options for 
the LO parameter can be selected by separating the 
options with a slash. The valid options are: 

omitted 



Equivalent to LO=S. 
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U) 



omitted 



Equivalent to LO=S/M/R. 



L0=0 



None of the information that can he selected 
by 0, R, M, or S is listed. 



LO=M 



A map correlating program entities with 
attributes such as data class, size, and 
physical storage is listed. (Source pro- 
gram is also listed.) Data items defined 
in the Report Section do not appear in the 
listing. 



L0=0 



Generated object code with COMPASS mnemonics 
is listed. (Source program is also listed.) 



LO=R 



Cross reference of program entitles is pro- 
duced. Each program entity is listed with 
the location of its definition and all 
locations of its use. (Source program Is 
also listed.) 

LO=S 

Source program is listed. 
L0= -S 

Source program is not listed. 

MSB Main Subroutine Indicator 

The MSB parameter should be specified on the com- 
piler call for only the first COBOL program called 
in a group of independently compiled subprograms. 
The MSB parameter should be used only when the 
COBOL program is called by a program written in a 
language other than COBOL. It should not be used 
for a COBOL subprogram that is called by another 
COBOL program. The valid options are: 

omitted 



Normal program is compiled. 



MSB 



Program is compiled as a subroutine that 
includes COBOL initiation. 



Listing is printed as specified by the job 
default print density (installation option). 



PD 



Equivalent to PD=8. 



PD-3 



Listing specified by L and E parameters is 
double spaced at six lines per inch. 



PD=4 



Listing specified by L and E parameters is 
double spaced at eight lines per inch. 



PD=6 



Listing specified by L and E parameters is 
single spaced at six lines per inch. 



PD=8 



Listing specified by L and E parameters is 
single spaced at eight lines per inch. 



PS Page Size 

The PS parameter specifies the number of lines to 
be included on a printed page of the output list- 
ing. The valid options are: 

omitted 

Number of lines on a printed output page is 
the density specified by the Job default 
page size (installation option). 



PS=n 



Number of lines on a printed output page is 
n. 



PSQ Program Sequence 

The PSQ parameter specifies the source of the 
sequence numbers used for diagnostics. The valid 
options are: 

omitted 

Compiler-generated sequence numbers are 
used for all diagnostics; sequence numbers 
in columns 1 through 6 are not processed. 



PD Print Density 

The PD parameter specifies the print density for 
all printable output (namely, the files specified 
by the L and E parameters). The PD parameter is 
ignored for connected interactive terminal list- 
ings. Any option specified by this parameter must 
be supported by the printer on which the files are 
output. The valid options are: 



PSQ 



Sequence numbers in columns 1 through 6 are 
used for all diagnostics. 



PW Page Width 

The PW parameter specifies the width of a line on 
output listings. The valid options are: 
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omitted 



TAF 



PW 



Length of lines of printed output Is 
specified by the job default print width 
(Installation option). 



Lines of printed output are 72 characters 
in length. 



PW=n 



Program is run as a NOS Transaction Facil- 
ity task. Calls to unnecessary routines 
are not generated and the field length used 
for the task is significantly reduced. 

The TAF parameter can be used for any COBOL routine 
that does no input or output and has no CALL 
identifier requests. _ TAF reduces the size of the 
resulting binaries, thus decreasing memory require- 
ments. 



Lines of printed output are n characters in 
length. The compiler reformats listing 
lines to this length. 

Lines longer than the page width are 
continued on the next print line and are 
prefixed with >»>. 



SB Subcompile Indicator 

If the SB parameter is specified, 
program is compiled as a subprogram, 
options are: 

omitted 



Program is compiled as a main program. 



the source 
The valid 



TDF Terminqtion Dump Indicator 

If the TDF parameter is specified, the contents of 
the execution time field length are saved on a 
system file upon normal or abnormal job termina- 
tion. The termination dump analysis program uses 
this system file and the file specified by Ifn to 
produce the formatted dump. To obtain the dump, 
the control statement C5TDMP must be executed after 
the COBOL run. See section 10, Debugging Aids for 
more Information. The valid options for the TDF 
parameter are : 

omitted 

Termination dump is not taken from this 
compilation; no extra files are written. 



SB 



TDF 



Program is compiled as a subprogram. If 
the main program Is not written in COBOL, 
the MSB parameter must also be used for one 
of the subprograms. 



SY Syntax Check 



The SY parameter affects the generation of 
executable code. The parameter is selected when SY 
is specified. The valid options are: 

omitted 

Source program is compiled and executable 
code is generated. 
SY 



Equivalent to TDF=TDFILE. 

TDF=lfn 

Termination dump is taken at a later time. 
Tables needed for the dump are written to 
file Ifn, where Ifn is one through seven 
letters or digits beginning with a letter. 



U Update File Name 

The U parameter specifies the name of the file to 
which an object code listing suitable for assembly 
by COMPASS is written. The valid options are: 

omitted 



Source program is checked for syntax, but 
executable code is not generated. 

When SY is selected, compilation time is 
approximately half of that required when SY 
is omitted. 



COMPASS assembly language images are not 
produced. 



U=0 



COMPASS assembly language images are not 
produced. 



TAF Program 

Specification of the TAF parameter Indicates that 
the source program is to be executed through the 
NOS Transaction Facility (TAF). The valid options 
are: 

omitted 

Program is run in a non-TAF environment. 



U 

Equivalent to U=COMPS. 
U=lfn 

COMPASS line images of the generated 
program are written to file Ifn in a format 
acceptable for the Update utility, where 
Ifn is one through seven letters or digits 
beginning with a letter. 
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The first seven characters from the name in 
the PROGRAM-ID paragraph become the deck 
name on a *DECK image written as the first 
item on the file. The second image on the 
file is *IDENT with the same name as the 
deck name. 



UC1 Unpack COMP-1 Items 

The UCl parameter enables the COBOL 5 program to 
process files created by a COBOL 4 program that 
contains COMP-1 items. The parameter is selected 
when UCl is specified. The valid options are: 

omi t ted 

All COMP-1 items are processed in COMP-1 
format. 



UCl 



All COMP-1 items are converted to integer 
format before they are processed. 

Conversion occurs through the use of an 
unpack instruction that removes the expo- 
nent. UCl should be used only when files 
created by COBOL 4 are being processed 
under COBOL 5. COMP-1 items in COBOL 4 
have a different format in COBOL 5. Larger 
and slower object programs result from this 
parameter. 



X Copy Text File Name 



The X parameter specifies the name of the library 

file from which text is copied when specified by a 

COPY statement . The valid options are : 

omi t ted 



Equivalent to X=OLDPL. 



X-O 



Equivalent to X=OLDPL. 



Equivalent to X=NEWPL. 

X=lfn 

The Update random program library containing 
text for COPY statements is on file Ifn, 
where Ifn is one through seven letters or 
digits beginning with a letter. 



COMPILATION LISTINGS 

The LO parameter of the compiler call selects the 
listings that are produced during compilation. The 
listings appear on the standard job print file, 
OUTPUT, unless another file is selected by the L 
parameter on the compiler call. 



Listings that can be selected by the LO parameter 
are: 

S Source listing 

M Map of data items and procedures 

R Cross-reference map 

Object listing 

Another listing that appears is the diagnostic 

summary. The LIST/NOLIST commands control the 

printing of the source program and object code 
listings. 



SOURCE PROGRAM USTING 

The source listing shows the source program 
compiled. Each line (card or card image) appears 
as it exists on the file identified by the I 
parameter on the compiler call, including any 
sequence numbers in columns 1 through 6 and any 
program identification in columns 73 through 80. 
Lines are individually numbered for correlation 
with any diagnostic messages. 



Source programs with COPY statements 
shown in section 9, Library Facility. 



appear as 



Figure 12-1 shows an example of a source listing. 
The header line shows the program name. The end of 
the source listing Is marked by two lines that 
correspond to the position of columns in the source 
Input. 



SELECTIVE UST/NOUST OPTIONS 

Printing of the source program and object code 
listings can be turned on and off by using the 
LIST/NOLIST commands. These commands are specified 
on comment lines (lines with an asterisk in column 
7). The commands are always printed. The commands 
that can be specified are: 

ONSOURCE 

Turns on source listing 
ONOBJLIST 

Turns on object listing 
ONALLLIST 

Turns on source and object listing 
OFFSOURCE 

Turns off source listing 
OFFOBJLIST 

Turns off object listing 
OFFALLLIST 

Turns off source and object listings 
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SOURCE LISTING OF TBINT 


1 


1 


IDENTIFICATION DIVISION. 


2 




PROGRAM-ID. TBINT. 


3 




AUTHOR. CDC. 


4 




* TBINT TABULATES INTEREST GIVEN AMOUNT BORROWED, RATE OF INT 


5 




* AND DATE OF FIRST PA YMENT. . REPORTS ON NUMBER OF PAYMENT, 


6 




* DUE DATE, INTEREST, ACCUMULATED INTEREST, PRINCIPAL, 


7 




* ACCUMULATED PRINCIPAL, AND BALANCE DUE FOR EACH PAYMENT. 


8 




* INPUT TO TBINT IS.. AMOUNT BORROWED (9(5)V99) COL. 1-7 


9 




* RATE OF INTEREST (V99999) COL. 8-12 

• 


126 


91 


WRAPUP. 


127 


92 


CLOSE IN-DATA-FILE, REPORT-FILE. 


128 


93 


STOP RUN. 


129 


94 


CALCULATE-LAST. 


130 


95 


SUBTRACT L-INT FROM INST GIVING R-PRIN. 


131 


96 


SUBTRACT R-PRIN FROM W-AMT. 


132 


97 


PERFORM LI THRU L2, GO TO FINAL-TEST. 




COLUMN 1 2 3 4 5 6 7 8 




12345678901234567890123456789012345678901234567890123456789012345678901234567890 



Figure 12-1. Source Listing Example 



A LIST/NOLIST command must begin in column 8 
immediately following the asterisk. The command 
cannot contain any embedded blanks; however, a 
blank must follow the command. The remainder of 
the comment line is ignored. A command can appear 
anywhere a comment line is legal, including in 
copied lines. 

The source listing is initially turned on for each 
program in the compilation and can be turned off 
and on as many times as desired. If the L=0 or 
LO"-S option is specified on the compiler call, the 
source listing commands have no effect. 

The object listing is initially turned on if the 
L0=0 option is specified on the compiler call; 
otherwise, it is initially turned off. Object 
listing commands that appear outside the Procedure 
Division are ignored. If L=0 is specified, no 
object listing is produced. 

Any commands issued within the Report Section are 
ignored because generated code for reports cannot 
be printed. 



The listing contains a data map and a procedure 
map. Figure 12-2 shows an example. The data map 
lists each data item defined in the Data Division, 
with items in each section listed separately. Data 
items defined in the Report Section of the Data 
Division do not appear in a listing produced by the 
data map option (LO=M). 

In the File Section of the map, the following 
information is shown for each FD entry: 

FD xxxx (yyyy) 

File— name specified in SELECT clause is 
xxxx. The implementor-name of the ASSIGN 
clause is yyyy (appears in parentheses 
below file-name). 

BLOCK=PROGRAM 

Block of code has the same name as the 
program-name truncated, if necessary, to 
seven characters . 

ADDR/BCP=nn/ 



MAP 

The map listing names each procedure-name and data 
item defined in the program. The addresses shown 
are those of the named items within the compiled 
program. 

The map begins and ends with headers: 

MAP OF program-name 

*** END MAP *** 



Address of block of code is nn octal within 
the job field length. Beginning character 
position is the beginning of that address. 

LNR=linenum 

Source program line number at which entry 
is defined is linenum. 



* 01 



Identifies beginning of a Record Description 
entry that starts with level-number 01. 
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FD 



MAP OF TBINT 



*** DATA HAP (ADDR/BCP IN OCTAL, SZ IN DECIMAL) *** 



FILE SECTION 





IN-DATA-FILE 




(INPUT) 


01 


INFORMATION 


02 


AMT 


02 


RATE 


02 


INST 


02 


DAT 


03 


NO 



CALCULATE-LINE 

LI 

L2 

FINAL^TEST 

WRAPUP 

CALCULATE-LAST 



BLOCK=PROGRAM 



ADDR/BCP=000672/ 



LNR=23 



*** END MAP *** 



000531/00 


SZ=81 


GROUP 


26 


000531/00 


7 


NUMERIC 


27 


000531/07 


5 


NUMERIC 


28 


000532/02 


5 


NUMERIC 


29 


000532/07 


6 


GROUP 


30 


000532/07 


2 


NUMERIC 


31 



000147 
000206 
000214 
000313 
000422 
000431 



105 
109 
110 
116 
126 
129 



Figure 12-2. Map Listing Example 



For each data item, the following are listed In the 
map: 

nn/mm 

Address of Item within block is word 
nn8. Within that word, the item begins 
in byte mmg. Bytes are numbered 
through llg (0 through 9io) left to 
right. 

SZ-zz 

Number of 6-blt bytes in item is zz^q. 

category 

Category of item as determined by PICTURE 
or USAGE clause descriptions, 

llnenum 

Source line at which item is defined. 

Data items in other than the File Section are 
described similarly. The block for - items defined 
in the Common-Storage Section is the common block 
CCOMMON. Common blocks have names delimited by a 
slash. 

The procedure map lists the beginning address for 
each procedure specified. The addresses are in 
octal and relative to the beginning of the program 
block. The source line at which the procedure is 
defined is also listed. Procedures are listed by 
any sections defined. 

SECTION 

Named procedure is a section-name. If 
SECTION does not appear, the procedure Is a 
paragraph-name . 



CROSS REFERENCE MAP 

The cross-reference map shows program references to 
each data item and procedure defined in the pro- 
gram. Figure 12-3 shows an example. 



The map is divided into four parts: 

Referenced data-names 
Unreferenced data-names 
Referenced procedure-names 
Unreferenced procedure-names 



In each part, the following information is shown 
for each item: 



Name of data Item or procedure 



LINE 



Source line at which item is defined 



COLUMN 



Column within source line LINE at which 
item is defined 



REFERENCE(S) 

Source lines in which the item is referenced 
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REFERENCED 


DATA- 


-NAMES 




CROSS 
LINE 


REFERENCE 
COLUMN 


FOR 


TBINT 

REFERENCE(S) 


AMT 

COL-LINE 

DA 

DA 

0ASH-LN1 










27 
69 
^2 
45 
74 


15 
12 
18 
18 
12 




95 97 104 

101 

111 

111 

100 


H3 

INIT-IT 

TRY-IT 










103 

91 

90 


8 
8 
8 






UNREFERENCED 


PROCEDURE- 


-NAMES 


LINE 


COLUMN 







Figure 12-3. Cross Reference Listing Example 



OBJECT CODE 

The object listing shows the COMPASS assembly lan- 
guage line Image generated by the compiler. Octal 
contents of program locations and other information 
not normally the concern of application programmers 
is also listed. 



W Warning 

F Fatal 

C Catastrophic 



LINE 



Source line in which the condition was 
detected 



DIAGNOSTICS 

Diagnostics detected during compilation are con- 
trolled by the EL, ANSI, and FIPS parameters on the 
compiler call, as described in appendix B. Figure 
12-4 shows the diagnostic summary. 



The listing shows the following: 
SEV 

Severity of error: 
N Nonstandard 
T Trivial 



COL 



Column number within source line LINE at 
which the condition was detected; or SS if 
source of error is subschema, in which case 
LINE pertains to subschema source statement 

ERROR 

Message number 

The full text of the error message completes each 
line. 

At the end of the individual diagnostics , the 
listed and unlisted messages are summarized. 



SErf 


LINE 


COL 


ERROR 


DIAGNOSTICS IN COPYEXA 


T 


2 


21 


1057 


ONLY THE FIRST 7 CHARACTERS OF THE PROGRAM 
NAME ARE USED TO INTERACT WITH THE SVSTEH. 


N 


US 


12 


728* 


THE INITIALIZE STATEMENT IS NON-STANOARO. 


N 


•»9 


12 


7284» 


THE INITIALIZE STATEHENT IS NON-STANOARO. 
•• 3 ERRORS LISTED •• 
♦♦ NO t^LISTEO ERRORS •• 



Figure 12-4. Diagnostic Listing Example 
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EXECUTION 



COBOL programs are executed through operating 
system control statements. Several parameters can 
be specified on the execution call control state- 
ment that cause certain actions to occur at 
execution time. 



CORE 

The CORE parameter causes the maximum amount of 
central memory used during execution to be displayed 
on the job dayfile when the program completes 
execution. The amount is displayed as an octal 
value. 



EXECUTION CALL CONTROL STATEMENTS 

After a COBOL program has been compiled, it can be 
executed through a control statement that specifies 
the logical file name of the file containing the 
object program. The file is specified by the B 
parameter on the compiler call. A compiled program 
can be executed immediately after compilation in 
the same run unit or later in a separate run unit. 

If a program is compiled and executed in the same 
run unit and the B parameter is not specified on 
the compiler call, the execution call control 
statement must specify the system file LGO. 

If a program is compiled and executed in separate 
run units, the program is executed either by 
specifying the name of the file containing the 
program or by using the LOAD and EXECUTE control 
statements. See the appropriate operating system 
reference manual and the CYBER Loader reference 
manual for more information about program execution. 

If a program uses segmentation, the overlays are 
written on the file CB5C0DE. Users running COBOL 5 
programs with overlayable segments from relocatable 
binaries must use the RETURN (CB5C0DE) statement 
between executions in a single run. Failure to do 
so can lead to "FATAL LOADER ERROR LOADING COBOL 
SEOffiNT" or re-execution of a segmented relocatable 
that ran earlier in the Job stream. 



EXECUTION PARAMETERS 

Parameters can be added to an execution call 
control statement to cause several functions to be 
performed by the system at execution time. The 
parameters conform to operating system syntax and 
cannot exceed one line. An asterisk must appear as 
the first character of each parameter except the 
file equivalence parameter. All parameters are 
optional and can appear in any order . Any unrecog- 
nized parameters are ignored by the system and are 
assumed to be user parameters. 

The user parameters can be processed within the 
program by entering the utility routine C.GETEP. 
See appendix G, Utility Routines. 



APPL 

The APPL parameter specifies the name of a Message 
Control System (MCS) application that communicates 
with the COBOL program. This feature is only 
allowed under NOS. The APPL parameter is required 
as part of the execution control statement of any 
program using MCS. The execution statement passes 
the application name to MCS during the program 
initialization. The application name is used by 
MCS to associate the COBOL program with the correct 
application. 



MSGS 

The MSGS parameter causes the messages generated by 
the Sort/Merge facility, which indicate the number 
of records processed, to be written to the job 
dayfile. If the parameter is omitted, the messages 
are not displayed. 



NOTRIP 

The NOTRIP parameter prevents the generation of the 
triple space carriage control character (hyphen) in 
lines created by the WRITE statement with the 
ADVANCING phrase or by the Report Writer. The 
character is not legal on some devices under the 
SOS operating system. If the character is legal, 
NOTRIP might cause a larger print file and slower 
printing. 



TIME 

The TIME parameter causes the amount of time used 
for execution to be displayed on the job dayfile 
when the program completes execution. Only central 
processing time is given. 

Figure 12-5 shows an example of the CORE and TIME 
parameters. 



08. 24.32. LGO, *TIME,*CORE. 

08.24.35.0000. 12 CPU SECONDS EXECUTION TIME 

08.24.35. 015700B SCM MAXIMUM USED 



Figure 12-5. Execution Parameter Example 



File Equivalence 



One file-name can be substituted for another 
file-name through the file equivalence parameter. 
The format of the parameter is : 

file-name-l=file-name-2 

[ ,f lle-name-3=flle-name-4] ... 

File-name-1 is the implementor-name specified in 
the ASSIGN clause of the File-Control entry of any 
program in the run unit or the implementor-name 
specified in the SPECIAL-NAMES paragraph with the 
mnemonic name used in any DISPLAY or ACCEPT state- 
ment in the run unit. File-name-2 is substituted 
for file-name-1 when the file is opened. Figure 
12-6 further explains file substitution. 

If the file equivalence mechanism of the FILE 
control statement is used, it is processed before 
(and overrides) the equivalence specified above. 
If a FILE control statement is used, it must 
specify file-name— 2. 
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FILE-CONTROL 

SELECT DATA-FILE ASSIGN I 



FO DATA-FILE 



OPEN INPUT DATA- FILE 



If execution is specified with LGO, the 
system file I is used for DATA-FILE. 
However, if execution is specified with 
L60,I=PAY12, the system file PAY12 is used 
for DATA-FILE. 



Figure 12-6. File Substitution Example 

DECK STRUCTURE 

A job deck submitted for execution through a card 
reader begins vd.th a Job statement and ends with a 
card with a 6/7/8/9 multiple punch in column 1. 



Between the Job statement and the end-of-information 
card, the deck is divided into sections separated 
by a card with a 7/8/9 multiple punch In column 1. 

Structure for a simple compilation of a program 
submitted in the deck and execution with data that 
Is also part of the deck is shown in figure 12-7. 

In the deck, all input data is part of the deck 
Itself and is known to the operating system by the 
name INPUT. If input files were stored on magnetic 
tape or permanent files, control statements to 
attach the input files to the job would be required 
before the LGO control statement. 

Output data from the deck above is written to the 
standard Job output file, OUTPUT, and is printed 
upon Job termination unless a control statement 
indicates another disposition. If output files 
were to be stored on magnetic tape or permanent 
files, appropriate operating system control state- 
ments would be required before and/or after the LGO 
control statement. 

See the appropriate operating system reference 
manual for control statements required to store and 
retrieve files and otherwise manipulate data for 
program execution. 



JOB.-* 

USER,usernam,passwd. -« 
ACCOUNT, userno,passwd. 
C0B0L5,I=source,B=bin. 

LGO. -• 

7/8/9 -• 



7/8/9 



6/7/8/9 



Job statement 

NOS only 

NOS/BE only 

COBOL 5 compiler call 

Execution call. 

End-of-record multiple punch 

' Source program to be compi led 

End-of-record multiple punch 

Data to be used during execution 

End-of-fi le multiple punch 



Figure 12-7. Compilation and Execution Deck Structure Example 
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Program TBINT (figure 13-1) tabulates Interest paid 
on a loan and produces a table for each payment 
that shows the date the payment Is due, interest, 
acctmulated Interest, principal, accumulated 
principal, and balance due. 

Input to the program is a series of records in the 
card image format shown in table 13-1. 

TABLE 13-1. TBINT INPUT RECORD FORMAT 



Column 


Contents 


Picture 


1-7 


Amount borrowed 


9(5)V99 


8-12 


Annual interest rate 


V99999 


13-17 


Payment amount 


9(3)V99 


18-23 


First payment date: 






month 


99 




day 


99 




year 


99 



be specified as a nonnumeric literal (for strict 
ANSI usage). It is accepted, however, as a legal 
implementor name, if it is specified without the 
quotes . 

Lines 14 through 16 are the FD entry for file 
IN-DATA-FILE. Lines 17 through 214 are the Record 
Description entry for the file. 

Lines 44 through 52 describe a header line for the 
table. 

Lines 351 through 43 describe level 77 items that 
are not part of a record. Level 77 Items need not 
appear at the beginning of the Working-Storage 
Section. 

Line 61 begins the Procedure Division. Both the 
input file and output file are opened, the first 
data card is read, and the information for the 
table is calculated from the card data. 

Line 67 initializes the line count. The MOVE 
statement could be replaced by the following 
statement when the program need not conform to 
strict ANSI usage. Since LINE-CT is specified with 
a PICTURE clause that defines a numeric item, 
INITIALIZE sets the item to zeros. 

INITIALIZE LINE-CT. 



One table in the output report is produced for each 
input record. 



Lines 71 through 712 show PERFORM statement use, as 
does line 97. 



Line 10 specifies that the input data is known 
within the program as IN-DATA-FILE and known to the 
operating system as the file INPUT. Since INPUT is 
a reserved COBOL word, it should be specified as a 
nonnumeric literal (for strict ANSI usage). It is 
accepted, however, as a legal implementor name, if 
it is specified without the quotes. 

Line 11 equates the output file, REPORT-FILE, to 
the standard system job output that is printed at 
the end of the job. As with INPUT, OUTPUT should 



Line 791 shows the CORRESPONDING phrase of HOVE 
that results in the date from the input card being 
moved to appropriate positions in the table header 
line. 

The following data records were used as input to 
the program: 

00500001815702500110575 

03000000750009332041572 
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MESSAGE CONTROL SYSTEM 



14 



The Message Control System (MCS) uses the COBOL 
Communication Facility (CCF) to pass messages 
between on-line COBOL programs and user terminals 
or other COBOL programs. 

MCS brings teleprocessing capabilities directly 
into the standard syntax of the COBOL language. It 
provides COBOL 5 with a generalized method of 
queuing, routing, and journaling messages in the 
CYBER Network under the NOS operating system. 

MCS uses the Network Access Method (NAM) to 
conmunicate with the terminals. The application 
Definition Language (ADL) is an MCS feature that is 
used to define an application to MCS. (See the 
Message Control System reference manual.) 

COBOL programs can be initiated through the normal 
method of job submission, or by preparing files 
containing the desired job stream and having MCS 
sutaait the job when a specified condition is met 
(for example, when messages in an input queue are 
ready to be processed). Programs can also be 
initiated by other application programs. MCS can 
serve multiple applications and allows a given 
program to communicate with multiple terminals or 
multiple programs to communicate with a single 
terminal . 

Messages are stored by MCS in logical data 
structures called queues. These message queues 
allow programs and terminals to communicate; the 
messages are buffered through the queue before 
being delivered to specified destinations. The 
input queues have four levels called queue, 
sub-queue- 1, sub-queue-2, and sub-queue-3. (See 
Symbolic Queues In the Communication Section.) 



The messages or segments of messages are determined 
with end-of-message indicators. The end of a 
message on output is determined by an indicator 
from the program that sends the message. A message 
on input is determined by a combination of terminal 
operator action and MCS convention. 

The three end-of-message indicators are end-of- 
segment indicator (ESI), end-of-message indicator 
(EMI), and end-of-group indicator (EGI) . MCS does 
not forward a message that is not a complete 
message or does not have an EMI or EGI. Message 
segments are stored in an input queue and made 
available to the COBOL program when the entire 
message has been stored. 

Using the SEND statement in the Procedure Division 
of the COBOL program releases messages or message 
segments to a specified queue. Using the RECEIVE 
statement acquires messages or message segments 
from a specified queue. The logical paths or 
connections between output queues and destinations 
or between input queues and sources are established 
with the ENABLE statement. These logical paths are 
disconnected with the DISABLE statement. 



DATA DIVISION CODING 

The Data Division of a COBOL program includes the 
Communication Section that contains input buffer 
and output buffer areas used to interface with 
MCS. These areas can be referenced by six state- 
ments (ACCEPT MESSAGE COUNT, DISABLE, ENABLE, 
PURGE, RECEIVE, and SEND) in the Procedure Division. 



COMMUNICATION SECTION 

The Communication Section in the Data Division is 
required in programs that use MCS. The Communi- 
cation Section can be used only under the NOS 
operating system. The Communication Section 
defines two Communication Description (CD) areas 
that communicate with MCS. These CD areas are 
referenced by the six ist^tements (ACCEPT MESSAGE 
COUNT, DISABLE, ENABLE, :r#|6a, RECEIVE, and SEND) 
in the Procedure Division that interact with MCS. 

The Communication Section is composed of the 
section header and two CD areas, one CD area 
for input-type functions, and one CD area for 
output-type functions. The section header is: 

COMMUNICATION SECTION. 



The header must appear on a separate line, beginning 
in area A, and it must be terminated by a separator 
period. 



COMMUNICATION DESCRIPTION ENTRY 

A CD entry defines the two types of MCS interface 
areas in a COBOL program. The two interface areas, 
CD input and CD output, are referenced by six 
statements in the Procedure Division to perform 
input-type and output-type functions for MCS. The 
data in these two areas is used for communicating 
Information about the message being handled between 
MCS and the program. Interface with MCS is only 
allowed under NOS. 



CD Input 

The CD input area (figure 14-1) specifies the CD 
level indicator, a cd-name (communication descrip- 
tion name), and a series of independent clauses. 
The independent clauses include the symbolic queue 
and sub-queue names, message date, message time, 
source, text length, end key, status key, message 
count, and the user-defined data-names. The 
independent clauses can be written with only the 
data-names . 

These independent clauses are used to execute the 
statements RECEIVE, ACCEPT MESSAGE COUNT, DISABLE 
INPUT, and ENABLE INPUT. A COBOL program that 
receives messages must define at least one CD input 
area. 
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Format 1 



FOR [ INITIAL ] 



CD cd-name; 

r [ ; SYMBOLIC QUEUE IS data-name-1 
[ ; SYMBOLIC SUB-QUEUE-1 
[ ; SYMBOLIC SUB-OUEUE-2 
[ ; SYMBOLIC SUB-OUEUE-3 
[ ; MESSAGE DATE 
[ : MESSAGE TIME 
[ : SYMBOLIC SOURCE 
[; TEXT LENGTH 
[ ; END KEY 
[; STATUS KEY 
[ ; MESSAGE COUNT 

data-name-1, data-name-2 data- 



INPUT 



] 
IS 
IS 
IS 
IS 
IS 
IS 
IS 
IS 
IS 
IS 

name- 



"] 



data-name-2 ] 
data-name-3 ] 
data-name-4 ] 
data-name-5 ] 
data-name-6 ] 
data-name-7 ] 
data-name-8 1 
data-name-9 1 
data-name-1 ] 
data-name-1 1 ] 



Figure 14-1. CD Input Area 



Each CD Input record area is 87 contiguous character 
positions. The record area consists of symbolic 
name clauses that are Interpreted as data-names 
with picture descriptions and level-numbers. The 
record area Is defined to MCS as follows; 

SYMBOLIC QUEUE clause defines data-name-1 as 
the name of an elementary alphanumeric data 
Item with a field length of 12 characters that 
occupies positions 1-12 In the record. 

SYMBOLIC SUB-QUEUE-1 clause defines data-narae-2 
as the name of an elementary alphanumeric data 
Item with a field length of 12 characters that 
occupies positions 13-24 in the record. 

SYMBOLIC SUB-QUEUE-2 clause defines data-name-3 
as the name of an elementary alphanumeric data 
item with a field length of 12 characters that 
occupies positions 25-36 in the record. 

SYMBOLIC SUB-QUEUE-3 clause defines data-name-4 
as the name of an elementary alphanxmerlc data 
item with a field length of 12 characters that 
occupies positions 37-48 in the record. 

MESSAGE DATE clause defines data-name-5 as the 
name of a data item that internally describes a 
6-diglt integer without an operational sign and 
that occupies character positions 49-54 in the 
record . 

MESSAGE TIME clause defines data-name-6 as the 
name of a data item that internally ■ describes 
an 8-dlgit integer without an operational sign 
and that occupies character positions 55-62 in 
the record. 



SYMBOLIC SOURCE clause defines data-name-7 as 
the name of an elementary alphanumeric data 
item of 12 characters that occupies positions 
63-74 in the record. 

TEXT LENGTH clause defines data-name-8 as the 
name of an elementary data item that internally 
describes a 4-digit Integer without an oper- 
ational sign and that occupies character 
positions 75-78 in the record. 

END KEY clause defines data-name-9 as the name 
of an alphanumeric data item of one character 
that occupies position 79 in the record. 

STATUS KEY clause defines data-name-10 as the 
name of an elementary alphanumeric data Item of 
two characters that occupies positions 80-81 in 
the record. 

MESSAGE COUNT clause defines data-name-11 as 
the name of an elementary data item that 
internally describes a 6-digit Integer without 
an operational sign and that occupies character 
positions 82-87 in the record. 



INITIAL Clause 



The INITIAL clause specifies a CD input area that 
Is updated by MCS before program execution. The 
INITIAL clause can be specified in only one CD 
input area within a single COBOL program. The 
INITIAL clause must not be used in a program that 
specifies the USING phrase in the Procedure 
Division header. 
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Each COBOL program containing an INITIAL CD Input 
area automatically calls MCS prior to the execution 
of its first Procedure Division statement. If MCS 
scheduled the job stream and this is the first call 
to MCS, then MCS fills in the queue name fields of 
the INITIAL CD input area. If MCS did not Initiate 
the job stream or this is not the first call to 
MCS, then MCS Initializes the queue name fields of 
the INITIAL input CD input area to spaces. There- 
fore, if a job stream scheduled by MCS contains 
more than one COBOL program, the first program that 
uses MCS should contain an INITIAL CD input area so 
the queue names from MCS are not lost. 

Whenever a program is scheduled for execution by 
MCS, the symbolic names of the queue structure that 
demanded this activity are placed in the data items 
for QUEUE, SUB-QUEUE-1, SUB-QUEHE-2, and SDB-QUEUE-3 
of the CD input area containing the INITIAL clause 
prior to the execution of the first Procedure 
Division statement. 

The execution of a subsequent RECEIVE statement 
naming the same contents of the QUEUE, SUB-QUEUE-1, 
SUB-QOEUE-2, and SUB-QUEUE-3 data items returns the 
actual message that caused the program to be 
scheduled. Only at that time is the remainder of 
the area updated. 

An INITIAL CD input area can be used In all cases 
where an input CD area needs to be referenced. Its 
fields are used and updated In the same way as 
those of any other CD input area. 



Symbolic Queues 

The symbolic queues contain four names that are 
used to communicate between the MCS and a COBOL 
program. The symbolic queue names are SYMBOLIC 
(^EUE, SYMBOLIC SUB-QUEUE-1, SYMBOLIC SUB-QUEUE-2, 
and SYMBOLIC SUB-QUEUE-3. The data-names given to 
the S3niibollc names of a COBOL program must be 
defined in the application definition for the MCS 
application that communicates with the COBOL 
program. An application definition uses the 
Application Definition Language to define and 
describe application components to MCS. (Refer to 
the Message Control System reference manual.) 

The characters used to form a symbolic queue name 
are A-Z, 0-9, and - (hyphen). The first character 
must be a letter and the last character must not be 
a hyphen. The maximum length is 12 characters. 
Sybmbollc queue names that are less than 12 
characters are left- justified and space-filled. 

The symbolic queue can be either simple or compound. 
The simple queue is a queue that does not contain 
sub-queues . A compound queue contains sub-queues . 
The order of the sub-queues of a compound queue 
determines the queue selection ordering used when a 
COBOL program executes a RECEIVE statement. 

To access a simple queue, one to four symbolic 
qtieue names must be entered (depending on the 
number of levels that Identify a given simple 
queue) in the appropriate symbolic queue name 
fields. If all symbolic queue name fields are not 
needed, or if a compound queue is accessed, all 
unused symbolic queue name fields must contain 
spaces during execution of the communication 
facility statement that references that communica- 
tion description area. (See Queue Hierarchy in the 
Message Control System reference manual.) 



MESSAGE DATE 

The MESSAGE DATE is the date that MCS acquires the 
final portion of the message transferred to the 
COBOL program that executed the RECEIVE statement. 
The MESSAGE DATE is updated with the execution of 
the RECEIVE statement if message text Is trans- 
ferred. The format for MESSAGE DATE is yymmdd 
(year, month, day). 



MESSAGE TIME 

The MESSAGE TIME is the time that MCS acquires the 
final portion of the message transferred to the 
COBOL program that executed the RECEIVE statement. 
The MESSAGE TIME is updated with the execution of 
the RECEIVE statement if message text is trans- 
ferred. The format for MESSAGE TIME is hhmmsstt 
(hours, minutes, seconds, hundredths of a second). 
The value of hh can be through 23; mm and ss can 
be through 59; tt must be zeros. 



SYMBOLIC SOURCE 



The SYMBOLIC SOURCE is the symbolic name that MCS 
associates with the source of the message being 
transferred when a COBOL program executes a RECEIVE 
statement. Execution of the ENABLE INPUT or 
DISABLE INPUT statements, along with the keyword 
TERMINAL, can establish or break the logical paths 
between the source of the message being transferred 
and all input queues receiving messages from the 
source . 



Symbolic source names that are less than 12 
characters long are left-justified and space- 
filled. Symbolic source names used in an applica- 
tion must be defined in the application definition. 
(See the Message Control System reference manual.) 
The association of a symbolic name with a given 
name is part of the definition. 



TEXT LENGTH 

The TEXT LENGTH is the number of message characters 
transferred to the COBOL program with the RECEIVE 
statement. The TEXT LENGTH Is updated with a 
successful execution of the RECEIVE statement. If 
no message characters are transferred and control 
is returned to the program, TEXT LENGTH is set to 
zero. 



END KEY 

The END KEY indicates the part of a message that 
has been transferred. When a RECEIVE statement 
with the SEGMENT phrase is executed, the END KEY 
assumes one of the following values : 

A indicates that less than a message segment 
has been transferred to the COBOL program that 
executed the RECEIVE statement. 

A 1, which indicates a complete segment or an 
end-of -segment indicator (ESI), terminates the 
message text transferred. 

A 2, which indicates an end-of-message indicator 
(EMI), terminates the message text transferred. 
An EMI implies an ESI. 
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A 3, which indicates an end-of -group Indicator 
(EGI), terminates the message text transferred. 
An EGI implies an EMI and an ESI. 



When a RECEIVE statement is executed with the 
MESSAGE phrase, the END KEY assumes the values 0, 
2, or 3. 



STATUS KEY 

The STATUS KEY indicates If any exception conditions 
were detected during execution of an MCS statement 
that references a CD Input area. Table 14-1 
indicates the codes that the STATUS KEY can assume 
for particular exception conditions that occur with 
a statement execution. 



TABLE 14-1. INPUT CD AREA STATUS KEY CODES 



Column Legend 



X X 



X X 



00 

15 

20 
20 
40 
90 
91 
92 

93 

94 
96 

97 



Exception Conditions 



The communication facility statement executed successfully. 

One or more of the queue/ source paths were already disabled or enabled. 
Action applied to other paths. 

One or more symbolic queue names Invalid or unknown. No action was 
taken while executing the communication facility statement. 

Symbolic source name invalid or unknown. No action was taken while 
executing the communication facility statement. 

Password invalid. No action was taken while executing the communication 
facility statement. 

System error. The results of the communication facility statement are 
unpredictable and the program should terminate processing. 

MCS is not running or MCS is not defined as a System Control Point. 

No action was taken while executing the communication facility statement. 

No valid application name parameter specified on the program call 
statement or the specified application is not running. This code can 
only occur if the program was not initiated by MCS. No action was taken 
while executing the communication facility statement. 

The program-name of the program is unknown or a program with the same 
program-name is already established with MCS. No action was taken while 
executing the communication facility statement. 

MCS or the application is shutting down. No action was taken while 
executing the conmunlcation facility statement. 

Sufficient resources (e.g., central memory) are not available to satisfy, 
the request. No action was taken while executing the communication 
facility statement. The program request can be repeated. 

MCS encountered a CIO error when accessing a mass storage queue. The 
results of the request are unpredictable and the program should termi- 
nate processing. Further attempts to access the queue by any part of 
the application results in the application being closed down by MCS. 



Column Legend: 

Column 1 - RECEIVE 

Column 2 - kCCETT MESSAGE COUNT 

Column 3 - DISABLE INPUT (without the Iceyword TERMINAL) 

Column 4 - DISABLE INPUT TERMINAL 

Column 5 - ENABLE INPUT (without the keyword TSRMINAL) 

Column 6 - ENABLE INPUT TEIOIINAL 

Column 7 - STATUS KEY codes 
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MESSAGE COnUT 

The MESSAGE COUNT is the number of complete 
messages that exist In the message queues. The 
number represents the complete messages enqueued by 
MCS Into a simple or compound queue when an ACCEPT 
MESSAGE COUNT statement Is successfully executed. 

If a compound queue is specified, the MESSAGE COUNT 
indicates the number of complete messages in all 
simple queues that are subordinate to the specified 
compound queue. 



Usage of CD Input Areas 

Table 14-2 summarizes the usage of the, CD input 
areas. The symbols I, +, *, $, U, 0, and a blank 
indicate how the field must be used or updated. 



TABLE 14-2. USAGE CD INPUT AREA 



Fields 


Column Legend 


1 


2 


3 


4 


5 


6 


7 


SYMBOLIC QUEUE 


I 


I 


I 




I 




$ 


SYMBOLIC SUB-QUEUE-1 


* 


+ 


+ 




+ 




$ 


SYMBOLIC SUB-QnEUK-2 


* 


+ 


+ 




+ 




$ 


SYMBOLIC SUB-QUEUE-3 


* 


+ 


+ 




+ 




$ 


MESSAGE DATE 

















MESSAGE TIME 

















SYMBOLIC SOURCE 









I 




I 




TEXT LENGTH 

















END KEY 

















STAyUS KEY 


u 


u 


u 


U 


U 


U 




MESSAGE COUNT 

















Column Legend: 


Column 1 - RECEIVE 


Column 2 - ACCEPT MESSAGE COUNT 


Column 3 - DISABLE INPUT 

(without the keyword TERMINAL) 


Column 4 - DISABLE INPUT TERMINAL 


Column 5 - ENABLE INPUT 

(without the keyword TERMINAL) 


Column 6 - ENABLE INPUT TERMINAL 


Column 7 - INITIAL input CD areas at the 

beginning of the Procedure Division 



An I Indicates that a symbolic name must be entered 
in that input area before executing the communi- 
cation facility statement that references the area. 



A + indicates that either a symbolic queue name or 
spaces must be entered in the area before executing 
the communication facility statement. Entering a 
queue name or spaces is dependent on whether a 
compound or simple queue is referenced. For a 
simple queue, the choice depends on the number of 
levels required to identify the simple queue in a 
queue hierarchy. 

An * indicates that either a symbolic queue name or 
spaces must be entered before executing the 
communication facility statement. If message text 
was transferred and a compound queue was refer- 
enced, MCS enters symbolic queue names in as many 
of the space-filled * areas as necessary to 
identify the simple queue containing the returned 
message. 

A $ indicates that either the field is filled with 
spaces or a symbolic queue name before executing 
the first Procedure Division statement of the 
program. The following criteria determine whether 
a symbolic queue name is entered into a field: 

If the Job stream containing the program was 
scheduled for execution by MCS 

If the threshold of the queue was exceeded 

If an INITIAL input CD preceded the program 
that used MCS 

If this is the first program in the job stream 
containing an INITIAL input CD area 

The number of levels necessary to specify the 
simple or compound queue whose message count 
caused the Job to be scheduled by MCS 

A U indicates that MCS updates the area during 
execution of the communication facility statement, 
regardless of any exception conditions. 

An indicates that the area is conditionally 
updated by MCS during execution of the communication 
facility statement. 

The absence of an entry indicates that the area is 
not used or updated. 



CD Output 

The CD output area (figure 14-2) specifies the CD 
level indicator, a cd-name (communication descrip- 
tion name), and a series of independent clauses. 
The independent clauses include the field's desti- 
nation count, text length, status key, destination 
table occurs, indexed, error key, symbolic desti- 
nation, and the user-defined names of these 
fields. These clauses are used to execute the 
statements SEND, PURGE, DISABLE OUTPUT, and ENABLE 
OUTPUT. A COBOL program that sends messages must 
define at least one CD output area. 

For each output CD, a record area of contiguous 

standard data format characters is allocated 

according to the following formula: (10 plus 13 
times integer-2). 

DESTINATION COUNT clause defines data-name-1 
as the name of a data item whose implicit 
description is that of an Integer without an 
operational sign occupying character positions 
1 through 4 in the record. 
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Format 2 




CD 


cd-name; FOR 


OUTPUT 


[; 


PESTINATION COUNT 


IS data-name-1 ] 


I ; 


TEXT LENGTH 


IS data-name-2 ] 


[ ; 


STATUS KEY 


IS data-name-3 ] 




: DESTINATION TABLE OCCURS mteqer-2 TIMES 




: INDEXED BY 


index-name-1 [ ,index-name-2 ] 


[ ; 


ERROR KEY 


IS data-name-4 ] 


I; 


SYMBOLIC DESTINATION IS data-name-5 1 . 



Figure 14-2. CD Output Area 



TEXT LENGTH clause defines data-nanie-2 as the 
name of an elementary data item whose implicit 
description is that of an integer of 4 digits 
without an operational sign occupying character 
positions 5 through 8 in the record. 

STATUS KEY clause defines data-name-3 as an 
elementary alphanumeric data item of two 
characters occupying positions 9 through 10 in 
the record. 



STATUS KEY 

The STATUS KEY indicates any exception conditions 
detected during execution of a communication 
facility statement that references a CD output 
area. Table 14-3 Indicates the codes that the 
STATUS KEY can assume for particular exception 
conditions that occur with the execution of each 
statement. 



Character positions 11 through 23 and every set 
of 13 characters thereafter form table items of 
the following description: 

ERROR KEY clause defines data-name-4 as the 
name of an elementary alphanumeric data 
item of one character. 

SYMBOLIC DESTINATION clause defines 
data-name-5 as the name of an elementary 
alphanumeric data item of 12 characters. 



If the DESTINATION TABLE OCCURS clause Is not 
specified, one (1) ERROR KEY and one (1) SYMBOLIC 
DESTINATION area are assumed. In this case, 
neither subscripting nor indexing is permitted when 
referencing these data items. 



If the DESTINATION TABLE OCCURS clause is specified, 
data-name-4 and data-name-5 can only be referenced 
by subscripting or indexing. 



DESTINATION COUNT 

The DESTINATION COUNT specifies the number of 
destinations that applies to a specific communi- 
cation facility statement. The DESTINATION COUNT 
must have at least a value of one, and must not 
exceed integer-2. The destination order for the 
communication facility statement is determined by 
the content of the SYMBOLIC DESTINATION; the 
ordering continues up to and including the number 
of destinations given by the content of the 
DESTINATION COUNT. 



ERROR KEY 

The ERROR KEY indicates any exception condition 
detected for a specific destination. MCS updates 
the ERROR KEY as part of the execution of a 
communication facility statement, whether or not 
any exception conditions were detected. Table 14-4 
indicates the codes that the ERROR KEY can assume 
for particular exception conditions that occur with 
the execution of each statement. 



TEXT LENGTH 

The TEXT LENGTH indicates to MCS the number of 

character positions transferred during execution of 

the SEND statement. Before executing a SEND 

statement, the number of leftmost character 

positions of the message to be transferred must be 
entered in the TEXT LENGTH. 



SYMBOLIC DESTINATION 

The SYMBOLIC DESTINATION indicates to MCS the 
destination that applies to a communication 
facility statement. The symbolic name that MCS 
associates with each destination must be entered in 
the SYMBOLIC DESTINATION. 
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TABLE 14-3. OUTPUT CD AREA STATUS KEY CODES 



Column Legend 


Exception Conditions 


1 


2 


3 


4 


5 


X 


X 


X 


X 


00 


The coimnimlcatlon facility statement executed successfully. 


X 


X 






10 


The communication facility statement executed successfully for all destinations 
referenced; however, one or more of them are currently disabled. 






X 


X 


15 


One or more destinations already disabled or enabled. Action applied to other 
destinations . 


X 


X 


X 


X 


20 


One or more symbolic destination names invalid or unknown. Action successfully 
completed for all valid destinations. 


X 


X 


X 


X 


30 


DESTINATION COUNT invalid or exceeds the maximum value possible. No action was 
taken while executing the communication facility statement. 






X 


X 


40 


Password Invalid for one or more destinations referenced. Disabled or enabled 
action applied to other destinations. 


X 








50 


TEXT LENGTH invalid or exceeds the maximum value possible. No action was taken 
while executing the SEND statement. 


X 








60 


A portion of a segment or message is to be sent, but no message area is referenced 
and/or TEXT LENGTH is set to zero. No action was taken while executing the SEND 
statement . 




X 






70 


One or more destinations do not have partial messages associated with them. PURGE 
statement successfully completed for other destinations. 


X 


X 


X 


X 


80 


Two or more of the conditions designated by the STATUS KEY codes 10, 15, 20, 40, 
70 and 95 have occurred. Action successfully completed for those destinations for 
which no exception condition exists. 


X 


X 


X 


X 


90 


System error. The results of the communication facility statement are 
unpredictable and the program should terminate processing. 


X 


X 


X 


X 


91 


MCS Is not running or MCS is not defined as a System Control Point. No action was 
taken while executing the communication facility statement. 


X 


X 


X 


X 


92 


No valid application name parameter specified on the program call statement or the 
specified application is not running. This code can only occur if the program was 
not Initiated by MCS. No action was taken while executing the communication 
facility statement. 


X 


X 


X 


X 


93 


The program-name of the program is unknown or a program with the same program-name 
is already established with MCS. No action was taken while executing the 
communication facility statement. 


X 


X 


X 


X 


94 


MCS or the application is shutting down. No action was taken while executing the 
comnunicatlon facility statement. 


X 








95 


Output queue threshold for one or more destinations exceeded. SEND statement 
successfully completed for other destinations. 


X 


X 


X 


X 


96 


Sufficient resources (e.g., central memory) are not available to satisfy the 
request. No action was taken ^lle executing the communication facility 
statement. The program may repeat the request. 


X 


X 


X 


X 


97 


MCS encountered a CIO error when accessing a mass storage queue. The results of 
the request are unpredictable and the program should terminate processing. 


Col 


umn 1 


,egend 


: 






{ 


.olumr 


i 1 - 


SEND 




Column 3 - DISABLE OUTPUT Column 5 - STATUS KEY 


c 


olumr 


I 2 - 


PURGE 




Column 4 - ENABLE OUTPUT 
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TABLE 14-4 . OUTPUT CD AREA ERROR KEY CODES 



TABLE 14-5. USAGE CD OUTPUT AREA 



Column Legend 



X 
X 



Exception Conditions 



No exception condition 
for this destination. 

Symbolic destination 
name Invalid or unknown. 

Destination or asso- 
ciated output queue is 
disabled . 

Password invalid for 
this destination. 

No partial message 
associated with this 
destination. 

Destination already is 
disabled or enabled. 

Output queue threshold 
for this destination 
exceeded . 

No queue is defined for 
this destination. 



Column Legend: 
Column 1 - SEND 
Column 2 - PURGE 
Column 3 - DISABLE OUTPUT 
Column 4 - ENABLE OUTPUT 
Column 5 - ERROR KEY 



Symbolic destination names that are less than 12 
characters long must be left-justified and space- 
filled. Symbolic destination names and the asso- 
ciated given destinations used in an application 
must be defined in the application definition 
language. (See the Message Control System refer- 
ence manual.) Symbolic destinations can be 
terminals, queues, journals, or a broadcast list. 
The ERROR KEY field for a broadcast list cannot 
completely describe for all list members the 
results of the statement executed. 



Usage of CD Output Areas 

Table 14-5 summarizes the usage of the CD output 
areas. The symbols I, U, 0, and a blank indicate 
how the area must be used or updated. 

An I indicates that the field shown on that line 
must be set before executing the communication 
facility statement that references the field. 



Fields 


Coltimn Legend 


1 


2 


3 


4 


DESTINATION COUNT 

TEXT LENGTH 

STATUS KEY 

ERROR KEY 

SYMBOLIC 
DESTINATION 


I 

I 
U 


I 


I 

U 


I 


I 

U 


I 


I 

U 


I 


Column Legend: 
Column 1 - SEND 
Column 2 - PURGE 
Column 3 - DISABLE OUTPUT 
Column 4 - ENABLE OUTPUT 



A U Indicates that the field is always updated by 
MCS, regardless of any exception conditions 
detected during execution of the communication 
facility statement. 

An indicates that the field is conditionally 
updated by MCS during execution of the communication 
facility statement. 

The absence of an entry indicates that the field is 
not used or updated. 



PROCEDURE DIVISION CODING 

The following six Procedure Division statements 
reference the input and output buffer areas (in the 
Communication Section) that interface with MCS. 



ACCEPT STATEMENT FORMAT 3 

Format 3 of the ACCEPT statement in the Procedure 
Division (figure 14-3) causes the number of 
complete MCS messages existing in a simple or 
compound queue to be returned. When an ACCEPT 
MESSAGE COUNT statement is executed, the CD input 
area referenced by cd-name must contain one or more 
symbolic queue names. These names identify the 
simple or compound input queue that contains the 
message count to be returned. If the statement 
executes successfully, this message count is 
returned in the MESSAGE COUNT field of the CD input 
area. The message count does not include any 
messages in the simple or compovind queue that are 
incomplete. Incomplete messages include messages 
that have not been completely acquired by MCS and 
messages that have partially been returned to 
programs executing RECEIVE statements. 
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ACCEPT cd-name MESSAGE COUNT 



Figure 14-3. ACCEPT Statement Format 3 



The message count is accurate at the time MCS 
updates the MESSAGE COUNT field. The count might 
not be accurate if the queue name referenced is not 
disabled at the time that the statement following 
the ACCEPT MESSAGE COUNT is executed. Execution of 
the ACCEPT MESSAGE COUNT statement also updates the 
STATUS KEY field of the CD input area. 



DISABLE STATEMENT 

The DISABLE statement (figure 14-4) allows MCS to 
break logical paths that contain sources, destina- 
tions, input queues, or output queues. The DISABLE 
statement is only allowed under NOS. 



r^.o.o. ^ f INPUT f TERMINAL I \ 
OlaABLL \ OUTPUT ) cti-name 

WITH KEY i 'dentifier-1 ) 
( literal-1 i 



Figure 14-4. DISABLE Statement Format 

When a DISABLE statement with the INPUT TERMINAL 
phrase is executed, the CD input area referenced by 
cd-name must contain the symbolic name of the 
source that is to be disabled. Execution of this 
statement results in MCS breaking all logical paths 
between the specified source and its associated 
input queues. MCS no longer accepts any message 
data from that source. 

When a DISABLE statement is executed with the INPUT 
phrase, but without the keyword TEBIMINAL, the CD 
input area referenced must contain one or more 
symbolic queue names. These names identify the 
simple or compound queue that is to be disabled. 
Execution of this statement results in MCS breaking 
the logical paths between the simple queue speci- 
fied, or the specified queues within the compound 
queue , and all sources that are capable of deliver- 
ing messages to the specified queue(s). As a 
result, MCS no longer accepts message data from any 
source that is destined for a disabled queue. 
Execution of this statement (with or without the 
keyword TERMINAL) updates the STATUS KEY of the CD 
input area. 

When a DISABLE statement with the OUTPUT phrase is 
executed, the CD output area referenced by cd-name 
must contain the symbolic names and the number of 
destinations that are to be disabled. Execution of 
this statement results in MCS breaking the logical 
paths between the specified destinations and the 
output queues that can deliver messages to speci- 
fied destinations. MCS halts the delivery of 
messages to the specified destinations. However, 
any message in the process of being delivered to a 
destination is not affected; it arrives complete at 
the destination. The DISABLE statement updates the 
STATUS KEY field and possibly the ERROR KEY field 
that corresponds with the specified destinations 
when the statement is executed. 



The KEY phrase of the DISABLE statement specifies 
or references a password that must match the 
password defined in the Application Definition 
Language for the source, input queue, or destina- 
tions applicable to the DISABLE statement. The 
DISABLE statement can affect the entire application 
that contains the program executing the statement. 
Following the successful execution of a DISABLE 
statement in one program, the operation of other 
programs of the same application is affected if the 
other programs reference the disabled source, 
queue, or destinations. If a symbolic name is an 
invitation or broadcast list, only the password 
defined in ADL for the list is validated. The 
passwords of the various list numbers are not 
validated. 



ENABLE STATEMENT 

The ENABLE STATEMENT (figure 14-5) causes MCS to 
establish the logical paths between a specified 
symbolic name and all queues that receive messages 
from or send messages to MCS. This statement can 
also cause MCS to establish logical paths between 
specified queues and their associated symbolic 
names. The ENABLE statement is only allowed 
under NOS. 



ENABLE j mgn -ERMINALlj. ^_„^^^ 

WITH KEY / identifier-1 \ 
— \ literal-1 / 



Figure 14-5. ENABLE Statement Format 

At the time an ENABLE statement with the INPUT 
TERMINAL phrase is executed, the CD input area 
referenced by cd-name must contain the symbolic 
name of the source that is to be enabled. Execu- 
tion of the statement results in MCS establishing 
all logical paths between the specified source and 
the input queues that receive the messages. MCS 
begins accepting message data from the specified 
source . 

When an ENABLE statement is executed with the INPUT 
phrase, but without the keyword TERMINAL, the CD 
input area referenced must contain one or more 
symbolic queue names. These names identify the 
simple or compound queue that is to be enabled . 
Execution of this statement results in MCS estab- 
lishing logical paths between the simple queue 
specified, or the specified queues within the 
compound queue, and all sources that are capable of 
delivering messages to the specified queue(s). As 
a result, MCS accepts message data that is destined 
for the enabled queue. The STATUS KEY field of the 
CD input area is updated during execution of an 
ENABLE INPUT statement (with or without the keyword 
terminal). 

When an ENABLE statement with the OUTPUT phrase is 
executed, the CD output area referenced by cd-name 
must contain the symbolic names and the number of 
destinations to be enabled. Execution of this 
statement results in MCS establishing the logical 
paths between the specified destinations and the 
output queues that can deliver messages to these 
destinations. Execution of the ENABLE statement 
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updates the STATUS KEY field of the CD output area, 
and possibly the ERROR KEY field, that correspond 
with the specified destinations. 

The KEY phrase of an ENABLE statement specifies or 
references a password that must match the password 
defined in the Application Definition Language for 
the source, input queue, or destinations that apply 
to the ENABLE statement. The ENABLE statement can 
affect the entire application that contains the 
program executing the statement. Following the 
successful execution of an ENABLE statement in 
one program, the operation of other programs 
of the same application is affected if the pro- 
grams reference the enabled source , queue , or 
destinations. 



PURGE STATEMENT 

The PURGE statement (figure 14-6) causes MCS to 
delete partial messages that <jre to be transmitted 
to specified destinations. This statement Is only 
allowed under the NOS operating system. 



PURGE cd-name 



Figure 14-6. PURGE Statement Format 

Hhen a PURGE statement is executed, the CD output 
area referenced by cd-name must contain thi; 
symbolic names and the number of destinations 
receiving messages that were partially released by 
one or more SEND statements. Tlie PURGE statement 
eliminates all messages awaiting transmission that 
do not hjive an EMT or EGl assoc'.atcd with them. 
Execution of the PURGE statement updates the STATUS 
KEY field of the CD output area, and possibly 
the ERROR KEY field, that corresponds with tlio j 
specified destinations. 



RECEIVE STATEMENT 

The RECEIVE statement (figure 14-7) causes a 
message, a message segment, or a portion of a 
message or message segment to be returned from a 
specified MCS queue. If no message text is 
available in the queue, an imperative statement 
specified in the RECEIVE statement is executed; if 
no imperative statement is specified in the RECEIVE 
statement, the execution of the program containing 
the RECEIVE statement is suspended. This statement 
is allowed only under the NOS operating system. 



RECEIVE cd-name i MESSAGE.) ||\|T0 identifier-1 
( SEGMENT ) 

[ ; NO DATA imperative-statement] 



Figure 14-7. RECEIVE Statement Format 

Vfhen a RECEIVE statement is executed, the CD input 
area referenced by cd-name must contain one or more 
symbolic input queue names. These names identify 
the simple or compound queue that contains the next 
returned message or message segment. When a simple 
queue is accessed, message text is returned only if 
the queue already contains a complete message or 



the queue contains an incomplete message because 
part of it was returned to the same program during 
the execution of a previous RECEIVE statement. A 
message is not qualified to be returned during 
execution of the RECEIVE statement if the message 
has not been completely received by MCS. When a 
compound queue is referenced, the simple queues 
within the compound queue are searched In the order 
specified in the Application Definition Language. 
Message text is returned from the first simple 
queue that contains message text available to the 
program in the order specified in the Application 
Definition Language. 

If the execution of a RECEIVE statement causes 
message text to be returned to the program, the 
MESSAGE DATE, MESSAGE TIME, SYMBOLIC SOURCE, TEXT 
LENGTH, END KEY, and STATUS KEY fields of the CD 
input area are updated during execution of the 
statement. If a compound queue is accessed, the 
symbolic queue name(s) of the simple queue with the 
stored message being returned is entered in the CD 
input area. Next, control is transferred to the 
executable statement that follows the RECEIVE 
statement, regardless of the presence of the NO 
DATA phrase. A message or message segment can be a 
null message or null message segment. A null 
message or null message segment does not contain 
any message characters. When a null message or 
null message segment is returned during execution 
of a RECEIVE statement, message text is considered 
to have been returned and all the fields previously 
mentioned are updated as normal; the TEXT LENGTH 
field is set to zero. 

One of the following two actions can occur if a 
RECEIVE statement executes successfully (the STATUS 
KEY field contains the value 00 following execu- 
tion) , but no message text is available in the 
simple queue or queues accessed during execution of 
the statement : 

If the NO DATA phrase is not specified, the 
execution of the program is suspended until a 
message is available in the simple or compound 
queue accessed by the RECEIVE statement, and 
until this message or part of the message is 
returned to the program. The one exception to 
this rule occurs when a program is still in 
this suspended state during shutdown of MCS or 
the MCS application. In this case, the STATUS 
KEY field of the CD input area is updated 
(indicating the shutdown condition) and control 
is transferred to the next executable statement. 

When the NO DATA phrase is specified, the TEXT 
LENGTH and STATUS KEY fields of the CD input 
area are updated, and the imperative statement 
in the NO DATA phrase is executed. 

If a RECEIVE statement does not execute success- 
fully, only the STATUS KEY field is updated and 
control is transferred to the next executable 
statement (whether or not the NO DATA phrase Is 
specified) . 

A single execution of a RECEIVE statement causes 
return of either a message (when the MESSAGE phrase 
Is used), or a message segment (when the SEGMENT 
phrase is used). During execution of a RECEIVE 
statement with the MESSAGE phrase, an EMI or EGI 
indicates a message boundary, and any ESIs are 
ignored. During execution of a RECEIVE statement 
with the SEGMENT phrase, an ESI, EMI, or EGI 
indicates a segment boundary. The message or 
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segment returned Is entered In the receiving area 
referenced by identlfler-1, starting at the 
leftmost character position of the receiving area. 
End indicators are not entered in the receiving 
area as part of the message text, but are stored in 
the END KEY field of the CD input area. All 
characters transferred to the receiving area are in 
display code; no editing takes place while the 
characters are being entered. 

If the area has more character positions than the 
number of characters contained in the message or 
segment returned, the unused character positions 
are not space- filled. In case the number of 
characters in the message or segment is greater 
than the number of character positions in the 
receiving area, the receiving area is completely 
filled and the ESD KEY is set. The remaining 
portion of the message or segment can be returned 
to the program during one or more subsequent 
executions of RECEIVE statements. If part of a 
message has been returned to a program, the 
remainder of the message can only be accessed by 
that same program and only If the next RECEIVE 
statement uses the same queue names. After the 
execution of a STOP RUN statement by a program, 
remaining portions of messages partially returned 
to that program are purged by MCS. 



SEND STATEMENT 

The SEND statement (figure 14-8) causes a message, 
message segment , or a portion of a message or 
message segjuent to be released to one or more 
specified destinations maintained by MCS. MCS 
enqueues the message text in one or more output 
queues and determines, after the message is 
complete, when to initiate transmission of the 
message. The SEND statement is only allowed under 
the NOB operating system. 

When the SEND statement is executed, the CD output 
area referenced by cd-name must contain the 
symbolic names and the number of destinations 
receiving the message being released. Symbolic 
destinations are defined in the application 
definition and can include terminals, journals, 
interprogram queues, application name, or broadcast 
lists. If message text is released, the TEXT 



LENGTH field of the CD output area must indicate 
the number of character positions of the message 
area that is referenced by identifier-1 and that is 
to be transferred. These message characters are 
display code characters transferred from the 
leftmost character position of the message area. 
Execution of the SEND statement updates the STATUS 
KEY field of the CD output area, and possibly the 
ERROR KEY field that corresponds with the specified 
destinations. 

An end indicator referenced in the WITH phrase of a 
SEND statement indicates the status of any message 
text released by that statement, and/or of any 
message text with no associated end indicator 
released by previous executions of SEND statements 
in the same program. The end-of-segment indicator 
(ESI) indicates that the message segment is 
complete; the end-of -message indicator (EMI) 
indicates that the message is complete and implies 
an ESI; the end-of-group indicator (EGI) indicates 
the group of messages is complete and implies an 
ESI and EMI. If the WITH phrase references 
identifler-2, then the contents of identifler-2 
indicates the type of end indicator to be asso- 
ciated with the message text. A value of 1 is an 
ESI; 2 is an EMI; 3 is an EGI. A value of 0, or 
any value other than 1, 2, or 3, means no Indicator 
is associated with the message text, that causes 
the SEND statement to release a portion of a 
message or message segment. If a value of other 
than 1, 2, or 3 is used, identifier-l must be 
specified and the second format of the SEND 
statement with identifler-2 has the same effect as 
the first format. 

A partial message released to MCS can only be 
completed by subsequent executions of SEND state- 
ments in the same program. MCS does not transmit 
any part of a message to its destinatlon(s) until 
the entire message has been released to MCS. 
Partial messages released by a program, but not 
terminated by an EMI or EGI at the time the program 
executes a STOP RUN statement, are purged by MCS. 
It is possible, using the second format of the SEND 
statement, to release null messages or message 
segments to MCS. A null message or segment is 
created whenever a program releases an EGI, EMI, or 
ESI with no associated message text (the text 
length is zero or has no identifler-1). 



Format 1 

SEND cd-name FROM identifier-1 

Format 2 

' WITH identifier-2 ', 

SEND cd-name [FROM identifier-1 ] ) WITH ESI 

I WITH EM] 

WITH EGI 



( BEFORE \ 
\ AFTER / 



ADVANCING 



1) f[identifier-3]) [UNE l) 

I H [integer] i LLINEsJ?' 

I ^ ( mnemonic-name ^ 
1 PAGE / 



Figure 14-8. SEND Statement Format 
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The ADVANCING phrase controls the vertical 
positioning of a message or message segment at a 
destination where positioning is applicable. The 
ADVANCING phrase is Ignored when specified in a 
SEND statement that releases a portion of a message 
or message segment (does not release an end 
indicator) . At destinations where positioning 
applies, both a message and message segment begin 
at the leftmost character position of the line that 
Includes the message or message segment being 
printed. Additional lines can be used to print a 
message or message segment that is longer than the 
physical line size of the output device. 



If integer or identlfier-3 is specified In the 
ADVANCING phrase, the message or message segment is 
printed at the destlnation(s) before or after 
(depending on the phrase used) downward reposition- 
ing occurs and for as many lines as Indicated by 
the value of integer or the content of ldentlfler-3. 
If the content of ldentifier-3 or integer is zero, 
no repositioning occurs before or after the message 
or segment is printed. If PAGE is specified, 
printing of the message or segment occurs before or 
after repositioning to the next physical page. If 
PAGE is specified on a CRT device, displaying 
occurs before or after clearing the screen and 
returning the cursor. 

A specified mnemonic-name must be an implementor- 
name defined as a 1-character alphanumeric literal 
in the SPECIAL-NAMES paragraph of the Environment 
Division. Table 14-6 defines the characters 
allowed in this literal and the effect of the 
characters on vertical positioning. The phrases 
BEFORE and AFTER have no effect if a mnemonic-name 
is used; the positioning information is entirely 
derived from the character used in the implementor- 
name literal. If a character that does not appear 
in table 14-6 is used in this literal, the effect 
is the same as if a space had been used in the 
literal . 



If specified, the ADVANCING phrase is effective for 
null messages and message segments. If a message 
or message segment is released by a SEND statement 
that does not specify the ADVANCING phrase, and the 
message or segment Is to be transmitted to a 
destination where positioning is applicable, 
positioning is provided as If the statement 
specified AFTER ADVANCING 1 LINE. 

When a SEND is used with a special destination (the 
MCS application name), the text Is submitted to MCS 
where it is processed as a command. The message 
must consist of a single segment and must be a 
valid MCS command as defined in User Commands, 
section 7 of the Message Control System reference 
manual. The MCS response to a message sent by a 



program Is stored in a response queue. (See 
section 3 of the Message Control System reference 
manual . ) 

TABLE 14-6. VERTICAL POSITIONING 
(SEND STATEMENT) 



Character 


Effect 


space 


Space 1 line before printing. 





Space 2 lines before printing. 


- 


Space 3 lines before printing. 


+ t 


Position to start of current line 
before printing. 


*t 


Position to new page or home cursor 
before printing. 


1 


Position to new page, or clear 
screen and home cursor, before 
printing. 


.t ' 


Space 1 line after printing. 


/t 


Position to start of current line 
after printing. 


.t 


Perform no action, print at next 
available position. The message or 
segment may not begin at the left- 
most character position of the line 
when this character is used. 


Any other 

ASCII 

Character 


Space 1 line before printing. 


'Terminal dependent; If not allowed at the 
terminal, the character has the same effect 
as a space or a blank. 



Segments longer than 4100 characters are truncated 
when sent to terminals; however, if the text is 
divided into multiple segments, no truncation 
occurs. 

Using a SEND for a destination that is a broadcast 
list holds the message in the associated output 
queue until at least one list member is connected 
and eligible to receive the message. At that time 
the message is transmitted to all connected 
terminals. The output for all other list members 
is discarded. 
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Communication between separately compiled programs 
is provided through the Inter-Program Communication 
facility. This facility allows a COBOL main 
program to transfer control to a subprogram written 
in COBOL, COMPASS, or FORTRAN. The CALL statement 
is used to transfer control to a COBOL subprogram. 
Control is transferred to a non-COBOL subprogram 
through the ENTER statement. 

The same data can be accessed by both programs. A 
variety of ways are provided for specifying data to 
be passed between programs. Shared data can be 
specified through the Common-Storage Section or 
through parameters in the CALL or ENTER statement; 
files or means external to COBOL can also be used 
for sharing data. 



DATA DIVISION CODING 

Data described in the Common-StDrage Section ot a; 
COBOL mail! program cun bo shared with any: 
subprogram. A COBOL 'iubprogrjm c.in describe d.ita 
to be p.issed between programs i-. the Common-Storigei 
Scclion, the Llnk.igp Section, or uSLTig thf EXTER.VAL 
clause. Common-Storage Section .mil KX'IKKNAL -_• ^iu.'jl- 
aie the most efficient methods for passing dil.i. 



COMMON-STORAGE SECTION 

The Common-Stor.ige St-clLon describes d.it,j that is 
shared by independently compiled subpnigrams . ; i. 
the Common-Stor.ige Section is specified in a raiin 
program, it must appL'.ir in each COBOL .subprogr.ira 
thit shares, the d.it.i. D.tI.i described in this 
section is allocated to a Jabeled common block with 
thi- name CCOMMON. Thts Coramon-Sl jrage Section is 
not presently in the ANSI standard; howt-Vi-r, it c.in 
be used to provide compatibility with future 
standards. 

The Common-Storage S.^cCion is .ilso usei.; f.ir 
External files. It ,iny d.ita I terns. ;iri.- ■;;).>ci f- iid ir. 
the File-Control entry or FU t-ntry lur the file, 
those d.ita items must be des.-rihed i-. this section 
or the Data Division. Refer to the d i •icus'.Jon 0:1 
External files for further dciail. 

The Common-Storage Section allows direct retfrence.s 
to ihe same data in all programs th.it Kpi-.-liy the 
same Common-Stor.ige Section. Programs In COMPASS 
or FORTRAN ciji refer to the t-,.inif data by 
referencing? the common block (.COMMON. All COBOL 
programs sharing the data should use the COPY 
st.itempnt or Update common deck."! for describing the 
data to ensure th.it all descriptions are rlie same. 
Refer to the L'pdatc reference manu.il for further 
inform.-ition. 

Descriptions of data in different subprograms need 
not be identical, but the data must hr: -dentical. 
For Insiianco, a table described i tem-by-i ten in one 
subprogram can be described with an OCCL'RS cl.iuse 
in another subprogram, as long .is the tolnl siKe of 
the table is the same. 



The Common-Storage Section is composed of the 
sertinn headei followed by any number ot level 77, 
6b, or 88 Data Description entries or Record 
Description entries of levels 01 through 49. The 
sectibn header is: 

COMMON-STORAGE SECTION. 



The header must appear on a separate line, 
beginning in area A, and must be terminated by a 
separator period. 

The VALUE clause can be used to set the initi.il 
value of an item in the Common-Storage Section only 
in a COBOL main program. If an initial value is 
not specified for a data item, its initial content 
might be unpredictable. It the VALUE clause is 
used with an item in the Common-Storage Section of 
a COBOL subprogram, the ciaiisc is ignored and a 
»'arning diagnostic is issued. 



LINKAGE SECTION 

The Linkage Section is valid only in a called 
subprogram. It describes data that is passed 
between the calling program and the called program 
through the USING phrases in the CALL statement of 
the calling program and in the Procedure Division 
header of the called program. No space is 
allocated in the subprogram for the data described 
in this section; rather, the calling program item 
is used during execution of the called program. 

The Linkage Section is composed of a section header 
followed by Data Description entries. The section 
header is: 

LINKAGE SECTION. 



The header must appear on a separate line, 
beginning in area A, and must be terminated by a 
separator period. 

Level 77, 66, and 88 items and Record Description 
entries can be specified in the Linkage Section. 
Level 77 items must contain either a PICTURE 
clause, a USAGE IS INDEX clause, or a USAGE IS 
COMP-2 clause. Other Data Description entry 
clauses are optional. An initial value cannot be 
assigned in the Linkage Section. Any VALUE clause 
is allowed, but its meaning is ignored and a 
trivial diagnostic is issued. 

Data items defined in the Linkage Section can be 
referenced within the Procedure Division only if 
the items are specified in the USING phrase of the 
Procedure Division header or are subordinate to 
items so specified. Results are undefined for 
subprogram references to a Linkage Section item 
that is not named in a CALL statement in the 
calling program. 

Frequent reference to Linkage Section items creates 
a significant amount of overheadi If a Linkage 
Section item is referenced often, it should be 
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moved to a Working-Storage Section item within the 
called subprogram. 

EXTERNAL DATA 

Items defined with an EXTERNAI, cl.mse cm be shared 
between programs in ihi s.imi- run unit. Ml 
programs referencing ai i.xtern>il Horn mu^>t have 
identical description of the ilcm. 

A level 01 Item dot mod kith an EXTERNAL clause is, 

allocated in a labeled (.ommon block. The name of 

the common block Is the firsL btven characters of 
the name of the item. 



EXTERNAL FILES 

Files can be shared between programs in the same 
run unit. A file can be written on in one program 
and read in another program; however, this method 
should be avoided because the file must be closed 
before it can be opened again and processed in 
another program. A file that is declared an 
External file Is shared between the main program 
and all subprograms cli.-Jt. refore.ice it. Onct' .in 
External file Is opened, it need not be closed and 
reopened for processing in another program. Data 
base files can also bt- shared between pr0j<raxs. 

An External file is idfntififd by the KXrFRNAL 
clause in the b'U entry for the file. U ;.<! shared 
by all programs in the run unit tlint describe ihf 
file. File information exists iixtornal to the 
programs. .All Kxlornai fllfS mu-it he declarod in 
the main program. 

A file is declared an Kxli'nial file by specifying 

EXTERNAI, ill the FD entry. Sec KXTKRNAl. Cl.iiise in 
section A. Any subprogram refcre-icing the Kxtern.i; 

file must describe the file exactly as it is 

described in the main program. The COI'Y statement 

or Update common decks should ke used to ensure 
identical descriptions. 

The record area for ar ExLern.il file is shared 
between programs in Lhc bunt- aanner ab 
Common-Storage Section Items .sre shared. Dam 
items specified in the File— ConLroi entry and 
FD entry for an External flLt must be ilcfined in 
the Common-Storage Section of Liie D.ita Divisicn- 
For example, data-names specified in clauses such 
as the RECORD KEY clause (if d.ila-name is nol in u 
Record Description entry fur the file), the BLOCK 
COLTiT clause, and the RECORD clause must be defined 
in the Common-Storage Section. The Keconl Descrip- 
tion enlries of level 01 throjgh i9 must not he 
defined in the Common-Storap.e Snction and musL 
follow the FD entry. 



PROCEDURE DIVISION 
STATEMENTS 

The CALL statement and the ENTER statement transfer 
control to a subprogram. The EXIT PROGRAM 
statement is used within a COBOL subprogram to 
return control to the calling program. The CANCEL 
statement removes a called program from memory. 
See section 8, Memory Management, for details on 
the CANCEL statement. In addition to these 
statements, the Procedure Division header is used 



to identify shared data in a subprogram executing 
under control of a CALL statement that Includes the 
USING phrase. 

PROCEDURE DIVISION HEADER 

The Procedure Division header in a COBOL subprogram 
includes the USING phrase when the program is 
called by a CALL statement that also specifies the 
USING phrase. The format of the header is: 

PROCEDURE DIVISION USING data-name-1 
[ , data-name-2 . . . ] . 

The order of the operands in the header must be the 
same order as the operands in the CALL statement. 
A data-name must not appear more than once in the 
division header, although it can appear more than 
once in the CALL statement. 

Each of the operands in the USING phrase of the 
Procedure Division header must be defined as a 
level 01 or level 77 data item in the Linkage 
Section of the subprogram. Within the called 
program. Linkage Section data items are processed 
according to their descriptions in the called 
program. 



CALL STATEMENT 

The CALL statement (figure 15-1) transfers control 
to a COBOL subprogram. (Use the ENTER statement to 
transfer control to subprograms that are not 
written in COBOL. If the CALL statement is used 
for a FORTRAN subprogram, mode errors could occur.) 



I identifier I 
CALL Mineral ( 



l uSING data-name-1 [, data-narne-2] ■ ■ ■ 
[; ON OVERFLOW imperative-statenrtent] 



Figure 15-1. CALL Statement Format 

The program in which the CALL statement appears is 
the calling program; the program referenced in the 
CALL statement is the called program. Called 
programs can contain CALL statements; however, a 
called program must not contain a CALL statement 
that directly or indirectly calls the calling 
program. 

When a CALL statement appears in a section with a 
segment-number 50 through 99, the segment is in its 
last used state when the EXIT PROGRAM statement in 
the called program returns control to the calling 
program. See section 8, Memory Management, for a 
discussion of called programs in overlayable 
segments. 

In the CALL statement, literal or identifier 
specifies the subprogram to be called. The value 
of literal or the contents of the data item 
referenced by identifier must correspond to the 
program-name specified in the PROGRAM-ID paragraph 
of the called program. Literal must be a 
nonnumeric literal; identifier must be an 
alphanumeric data item. 
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USING Phrase 



ENTER STATEMENT 



The USING phrase passes parameters to the called 
program. Each data-name in the USING phrase 
must be: 

Defined In the calling program as a level 01 or 
level 77 Item in the File Section, Working- 
Storage Section, or Linkage Section 

Specified in the called program in the USING 
phrase of the Procedure Division header 

Defined in the called program as a level 01 or 
level 77 item in the Linkage Section 



The number of data-names in the USING phrases of 
the CALL statement and the Procedure Division 
header must be identical. The order of data-names 
is critical: both lists refer to a single set of 
data with correspondence by position, not name. 

Corresponding pairs of data-names should be defined 
at the same level because a level 01 item and a 
level 77 item are synchronized differently. If 
items of different levels are in corresponding 
positions, the ANSI=77LEFT parameter must be 
specified on the compiler call to ensure left 
synchronization of the level 77 items. 

Index-names cannot be used in the parameter list 
since no positional correspondence is established 
for Index-names. Index-names in the called and 
calling programs always refer to separate indexes. 

Passing parameters in the CALL statement is the 
most common method of sharing data. A significant 
amount of overhead, both in memory requirements and 
in time, is associated with this method. All 
references to Linkage Section items have to be set 
to the real address each time the CALL statement is 
executed. The more parameters that are passed and 
the more frequently a subprogram is called, the 
more system resources are used. 



ON OVERFLOW Phrase 

The ON OVERFLOW phrase specifies the imperative- 
statement that is executed if a dynamic program is 
called and there is insufficient room to load it. 

This condition might occur if either the maximum 
field length for the job or the field length 
specified In the CM parameter in the job statement 
is reached. If an imperative-statement is not 
specified and this condition occurs, the run is 
aborted. 



The ENTER statement (figure 15-2) transfers control 
to subprograms written in a language other than 
COBOL. It should not be used to transfer control 
to programs written in COBOL. The CALL statement 
transfers control to subprograms written In COBOL. 

The optional language-name may be either COMPASS, 
FORTRAN-X or FTN5. If language-name is not 
specified, COMPASS is assumed. The FTN5 language- 
name generates a parameter list which is common to 
both FORTRAN 5 and COBOL as well as a number of 
other products. It should always be used to call 
FORTRAN 5 subprograms. Likewise, FORTRAN-X must 
always be used if FORTRAN Extended (FORTRAN 4) 
subprograms are being called. 

Routine-name must be an entry point into the 
subprogram. When routine-name contains characters 
other than letters or digits, or when routine-name 
is the same as a COBOL reserved word, routine-name 
must be specified as a nonnumerlc literal. 



When the calling program 
subprograms must reside in 
section 8, Memory Management. 



is segmented, 
user library. 



the 
See 



See section 11, Product Interfaces, for the calling 
sequence generated by the ENTER statement- 

fhc L'blM.i phrase spoclfieb parameti.TS lo bo passed 
tn the sdbprograDi. The par<3meter ll.^t can include 
dat'i-namus with qualifiers or literal subscripts, 
file-names, prncedure-n.imes, and literals; Che 
specific parameters required depend on the needs of 
the .<!.ibprogram being called. The word ALL in a 
noniiumerir literal is Ignored. The compiler docs 
not check for errors in the parameter list. 



EXIT PROGRAM STATEMENT 

The EXIT PROGRAM statement returns control from a 
called program to the calling program; it does not 
return control to the operating system. The format 
of the statement is: 

EXIT PROGRAM. 



This statement can only appear in a called 
subprogram. (In a main program, EXIT PROGRAM 
causes a diagnostic to be Issued and execution to 
continue with the next sentence.) For ANSI usage, 
EXIT PROGRAM, which transfers control back to the 
calling program, must be the only statement in a 
sentence .ind the only sentence in a paragraph; 
however, in this Implementation it can appear 
.tnywher<? in a paragraph. 



ENTER [language-name] routine-name 



USING 



' il:itii-[umi'-1 
file-namp-1 



i ptni.i!cluri>-[iami>-1 j 
(litetril-l 



d>ita-ri.ime-2 
filp-n<ime>-2 
|)roce<liiiu-n<ime-2 
litei3l-2 



Figure 15-2. ENTER Statement Format 
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The Subschema faclHty Is an interface to the CYBER 
Database Control System (CDCS). It allows a COBOL 
program to access a subschema in lieu of defining 
files through FD entries. Through the subschema, 
the COBOL program can also read files that have 
been logically joined together in a relation. The 
material in this section discusses CDCS 2. For 
detailed Information, NOS 2 and NOS/BE users should 
see the CDCS 2 application programming reference 
manual. For additional information, SOS 1 users 
can refer to the CDCS 2 refe.'ence manual and the 
DDL 3 volume 2 reference manual. 

The COBOL subschema is created by the Data Descrip- 
tion Language (DDLS) compiler and resides on mass 
storage as a permanent file. It contains descrip- 
tions of one or more data base files that are made 
available to the COBOL program. Only one aubschpma 
can be referenced in a COBOL program. Data base 
files can have extended indexed, extended direct, 
or extended actual-key file organization. 

During compilation of a COBOL program that accesses 
a subschema, file descriptions are obtained from 
the subschema and incorporated into compilation. 
The program can reference items in the data base 
files with conventional Input and output statements 
and item references in the Procedure Division. 

A subschema source listing (or LO-^ specified on 
the compiler call) can be used to obtain data-names, 
item descriptions, and other Information needed to 
process the data base files. The listing contains 
the subschema-name, file-names, record-names, 
data-names of items, and relation-names. Primary 
and alternate keys are ;ilso listed for the appli- 
cable flies. The files joined In a rclaLlou are 
shown at the end of the listing. 



PROGRAM CODING 

Coding a program that accesses a subschema Is 

basically the same as coding any other program. A 

few requirements and restrictions are impospri on 
the program. 



ENVIRONMENT DIVISION 

In the Environment Division, the SPECIAL -NAMES 
paragraph and the FILS-COKTROL paragrapl- <ira 
affected by subschema use. The SUB-SCHEMA clause 
is required In the SPECIAL-NAMES paragraph. Only 
restricted File-Control entries can be -ipeclfied 
for data base files. 



SUB-SCHEMA Clause 

The SUB-SCHEMA clause in the SPECIAL-NAMES paragraph 
is required to identify the subschema and acknowl- 



edge subschema use. The SUB-SCHEMA clause format 
is shown in figure 16-1. 



SUB SCHE MA IS. subschema-name 



Figure 16-1. SUB-SCHEMA Clause Format 

Subschem<i-name specifies the name of the subschema, 
which is obtained from tlicj Title Division of the 
subschema. The subschema must reside on the file 
IdentLfied by the D parameter of the compiler call 
statement. 



File-Control Entry 

The SELECT clause and the ASSIGN clause are 
required only if the FILE STATUS clause is used. 
Any oilier clause is Ignored. If no File-Control 
entries are specified, the FILE-CONTROL and the 
TNPUT-OUTPUT SECTION headers are not required. 

The file-name for the SELECT clause Is obtained 
from the Realm Division of the subschema. The 
ASSIGN clause Includes implementor-namc-2 when 
alternate keys are defined for the file. 



DATA DIVISION 

In the Data Division, the File Section must not 
include an FD entry or Record Description entry for 
any file with a description in the subschema. 
Files that are not data base files can be described 
in the File Section. 



PROCEDURE DIVISION 

In the Procedure Division, a data base file Is 
processed as if It had been desr.rthed in the File 
Section of the Data Division. Record-names and 
data-names are obtained from the Record Division of 
the subschema. Some statements cannot be used with 
data base files. Pormat 3 and format 4 of the RE,\D 
statement are used to read relations. Format 2 of 
the OPEN statement is used to open all files within 
a relation. Format 2 of the CLOSE statement is 
used to close all flies within a relation. Format 2 
of the START statement is used to position the root 
file in a relation and to establish a key of refer- 
ence for the root file. The USE FOR ACCESS CONTROL 
declarative statement specifies a procedure used in 
generating access control keys. The USE FOR 
DEADLOCK declarative statement specifics a proce- 
dure used in recovering from a deadlock situation. 
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Statement Restrictions 

Data base files can be referenced in any of the! 
Frocedure Division statements except the fo] lowing: 

ACCEPT 

DISPLAY 

GIVING phrase of SORT or MERGE 

USING phrase of MERGE 

CLOSE Statement 

The format 2 ClOSE statement Cflptire 16-2) closes 
all files that are associated with a specified 
relation. The stritemcnt is performed aft if a 
separate close were executed for each file. In 
the order of the rank of the files In the rela- 
tion. Files closed hy n reliction CLOSE statement 
(format 2) shoold not be explicitly closed by a 
file CLOSE staLement (format 1). 



Format 2 

CLOSE relation-name [WlTH LOCK ] 



Figure 16-2. CLOSE Statement Format 2 



OPEN Statement 

The format 2 OPEN statei<>ent (figure 16-3) opens .ill 
files that are assor.1.it.(>d witli o wppclfied rela- 
tion. Tlie statement is performed as If a separate 
open were executed for each file, in the order of 
the rank of the fl]«s in the relation. Flies 
opened by a relation OPEN statc-ment (format 2) 
should not be explicitly opened by a file OPEN 
statement (format 1). 



Format 2 



OPEN 



INPUT relation-name 



MNP 
tl-O 



relation-name 



Figure 16-3. OPEN Statement Format 2 



Relation-name Is ileflnt'd in the Kub.>5chema for the 
program. Relations are normally opened for Input 
only, but can be opened For I-O if lockinR of 
records read is desired or if updating of the 
individual files Is dcsirt^d. 



READ Statement 

Format 3 and format 't of the READ ■st.itcment are 
used to read data base relations. REA.D statement 
formats are shown in figure 16-'*. A relntlon can 
be read sequentially i)r randomly. The rules dis- 
cussed in section 5 for reading a file also apply 
when ronding a relation. 



Format 3 

READ relation-name [NEXT ] RECORD 
[; AT END imperative-statement] 

Format 4 

READ relation-name RECORD 

[; KEY IS data-name] 

1; INVALID KEY imperative-statement] 



Figure 16-4. READ Statement Format 3 and Format 4 



A relation is the means by which a set of files 
within the subschema are Joined together. The 
files are joined on the basis of relationships that 
exist between data items in the respective files. 
For example, one file In a threc-fllo relationship 
is joined to a second file through a data Item 
contained In both files; the second file is then 
joined to u third file through the same or another 
data Item that Is contained in both the second and 
third files. The first file is the root file, 
which is the file at which the relation is entered. 
The files In the relation are traversed from the 
first file to the second file tu the third file. 



Relations are referenced only in the Procedure 
Division. SELECT and ASSIGN cljuses for each of 
the data base files ore optional and are required 
only when the program uses the FII.P, STATUS clause. 
Each file in the relation must be named in the 
subschema. 



Relation-name is the name of a relation specified 
In thif subschema. Format 3 reads a relation 
sequentially; format 't reads a relation randomly. 
Data-name mu'st reference a primary or alternate key 
in the root file. When the READ statement is 
executed, a record from each file. In the relation 
is available to the COBOL program. 



START Statement 

Format 2 of the START statement (figure 16-5) 
posit 1on.s Che root file of the relation for subse- 
quent scqueitial retrieval of records through 
relational reads. The files within the relation 
must be open in the iKPCT or T-O mode. Execution 
of START establishes the current position of the 
root file as the beginning of the first record that 
has a key s.-ifi ify Ing the START condition. 

Format 2 of the START statement also establishes 
the key of reference for the root file. A READ 
relation-name NEXT Followinf; the format 2 START 
stnteraeni reforenccv. the root file according to 
the key established by the slalement. Refer 
to section i. Procedure Division, for further 
discussion of the START statement. 
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Format 2 



START relation-name 



KEY 



IS EQUAL TO 

EQUALS 

>Si 

EXCEEDS 

IS GRE ATER THAN 

IS >, ' 

IS NOT LESS THAN 

IS NOT < 



! 



(lata -name 



[; IN VALID KEY imperative statement] 



Figure 16-$. START Statement Format 2 



USE FOR ACCESS CONTROL Declarative 
Statement 

The USE FOR ACCESS CONTROL staLcment (figur.- 16-6) 
identifies Che access control key required to gain 
access Co the specified files. It miisC be the 
first sentence afLur a seccXoii header wLLhin Lhc 
Declaratives pnrtion of Ihe Procedure Diwision. 



Tf the ON phrase is not specified, OS INPUT I-O Is 
assumed . 

Ttip KEY phrtiso namfs .1 JaCa Horn coatdLning the 
access control key applicable to the specified 
access mode and files. Tliii> key value required Co 
obLiiLn a given accoHS mode is specified in the 
ACCESS-CONTROL r.laurt.- in Clip, schema. 



USE FOR ACCESS CONTROL 



ON 



( INPUT ) 

I INPUT 1-0 / 
( l-O" INPUT I 



; KEY IS data-name 



[ ( realm-name-1 I, realm-name-2l 

™?- ) RbALMS 



i] 



Figure 16-6. USE FOR ACCESS CONTROL 
Statement Format 



Data-name mu-iU be an alphanumeric item ot from one 
to 30 charictPrs. 

When rUo USE FOR AOCKSS CONTROL pcocedura completes 
execitlon, the key value contained in the KEY 
phraso is passud to the CDCS privacy modulo. 

The FOR phrase specifies the realms, or files, for 
which the acccsH control key applies. Any realra- 
nime specified must also appear in the subsciiema. 
A realm in the subschtim^i Is equivalent to a tile In 
the COBOL program. 

If REALMS is specified in t!ic FOR phrase, CUCS 
grants access to all data base files named in the 
subschema that liavc Jock valufs cqua± to Llie access 
control key value. 

If the FOR phrase is omitted, FOR REAF^MS is -issuraod . 



Witiiin the schoma, accoss control locks can Ix' 
defined to provide privacy at llie file level. Thj 
USE FOR ACCESS COKTROL statement must be used 
within the COBOL program Co supply the approprL-ite 
key to %a.\Ti. access Co a locKod file. 

Each USE FOR ACCESS CONTROL pcocfdure is executed 
one time, at Che sCarC of program execntinn an:] 
before any d.ita base file is opcnod. 



USE FOR DEADLOCK Declarative Statement 

The USE FOR DE.ADLOCK statement (figui-e 16-7) 
identifies the procedure to be executed wlien a 
dead'.ock situation oi^curs. It mu.st be tlie first 
sentonce utter a section header wLlhin tlie Declara- 
tives portion of the Procedure Division. Tlie 
moaning of a deadlock situation is discussed I'l the 
follDwing paragraphs. 



Any given combination of access mode and file ran 
be included in only one USI5 FOR ACCESS CONTROL 
statement. 

The OK phrase specifies the type of access for 
which the key applies. INPUT indiratos read 
access, 1-0 Indicates update access, .ind INPUT 
1-0 or 1-0 INPUT indi rates read and update 
access . INPUT 1-0 and 1-0 INPUT are .synonomous 
and interchangeable. 



USE FOR DEADLOCK 



ON 



I realm-name-1 [, realm-name-2| 
\ REALMS 



Figure 16-7. USE FOR DEADLOCK 
Statement Format 
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in I lie I.."!..!! urac'iil , rtvi Lin-rMmc "spt'ci'ies the n«iine ot 
; lif leiliii, or f.li'', for whJtii thi.' dciJlytk sllii.i- 
'.oii iiti-iirs. A[iy ip.ilm -name sjuiriLLi'J ir.u^t .jIsd 
appear :ii iV subsc:ln.'m.i . A ruilin in rht; siibsctiL'm.t 
:s equiv.i Ifiil to :i lilc pi llu- COBOi. prnrir.ioi. 

[■: KKALMS is spiv- if ;.•>!, f.ic 'JiSli; FOR BIJ\ULOf;K 

pror'-'dure js executed vi.h»»M 'i (Jo.idlnL'k. silii'itioa 

iic-fiirs iavo'' V : '1/, .iny d.ita bast; fUo n^inrd in lli«; 
<5uhsf hem-T. 



Upo'.i ri'Liirn from lliL [ijuLine DBjBP'i, it wiiL 
L ()(ir..i i 1 a unlqiit' rerr>VL'ry pt^inL iiimibcr fii^sigiicd by 
cues. Dnta-ncimo- 1 rausl Iw .in .1 ph.inu;n.^r ii- li.t;m o; 
!}ij cliuraccers in lengtli. U iiKualiy contains n 
user— all [) pi ied expl.inatjry mcsaagf fur Llio rotovery 
point. The infurmiii ive rae.ssage is written to the 
CDi;.S jimrn.il l-)g fiiu .-il'jnp. with the recovery puiiit 
numbsr. I''or further detdiis oa J.-it.i base recovL-ry, 
Li^usiil r. the appjopri'itc CDCS 2 reteruiicf raanu;iL. 



Tr the USE FOR DKADI.OCK st.itPEpenl- is Dinitted Sfor a 
H'.ven fi".-.- ,i-ic. .1 ileajlork sitii.Hr.ion ■iriiur'i for llwL 
fiio, the luii if. .ibijrt.-»d. A dt-.id1oi'lt situatii-.n 
■jccur.i rfl'.en two or more programs try to accusH a 
fMo or record tha! '■•> in ;i iockt-d "ttatfi. 

To proieit th^ intfgrity -jf ■; il ita b.jse wiiile it is 
iiL'i'nf; a.-i-r.";Hi'd by two or <ii ire programs, CDCS 
ppjv.de.s a locking and unioc.(lng inofha I's'n. Mlien a 
file or ri'i-ord h.is been loi-.kud , the progr.iTn p.i."-.- 
Ri's.siiig ;he lo.-k li.is .ircess lo the record or file, 
but a^■l■■e'--^? by other user.s is rostrictid. 

The Liit? nr ri.-uord j-.in b- lii.ke.f. [n one of t wj 
ways: either tliroagli an ;iulom;i t ic faiii'tiun of CDCS 
,ir through an instru.-.tjon :.n the COBOL prugr.iai. 
.\iit.imat ;o looking ol u record uci'irs dii'.ug .1 
i:.)iiuil ri-.-iri iip,-ra'ioii when the i".'." Jivolviiil has 
bt^en opu'ned v* i tn Ihj 1 -u opt .on -Ti^ei" i fied in tl'.i' 
OPLN sliLomeiit. The rei-ov 1 's u'llo.^.kod when ;i 
•nibseque: r i .ipiit -output st iloment fur tint fil= is 
.-•Xff lit i-d , 'IT v.>it':i fJ.IJNLuK is edficuC "i'. . 

An entire tile .~an be locked bj spii'-fy.ng the 
f>llo«/i;ig sL.i'.emeiit willii'i the COBOL prograai: 

F.KTER "CI-OK" USING tilo-nam.;. 

Tne rSTNG phr.ise indLcatti !;hc ii.i".ii- 'iF the filt 
I ii-it is to be Idrke-d. Once the file hus been 
loflifd, either pro^.-im-. s-ar. .Ti-ce.ss it through re.'iil , 
b.it niL upii.iLe, 'ip(-r;il ions . The tile musL be 
sii.i-i-ssf ul ]y opened before it oan be lor<ad. 

To unloi-k a tile that has be-- 1 locked, the following 
■itateinenf miist bo specified: 

liKThR "i:.UNLOIC" USING f i le-nam-i . 

The USING phrafat: JndlLates the name if the tile 
ti'.at Is f'l be .in?.)ckpd. 

When a re.latLon is read, CDCS locks .ill tei-iir.ls in 
a given rel.ition oi-'enrri-iifi. IF Che files joineu in 
the reLatt.in h.i,ro been opene.J fo' np it -output 
processing. 



COBOL SUBPROGRAMS 



D..tJi base F i Les can be jccessed by COBOL 
subprogr.-ims. ThR main program and tlie subprogram 
must in.::ude the SUB-SCHEMA cldus,e. File-Control 
eulriea iiend not be specified in the m.i . n program 
iir It the. subprogram for data b-ise IIU". rtifiirciued 
in the run unit. See section I'j, Inter-Program 
Communii'.at i on Fac i L i t y . 



COMPILATION AND EXECUTION 

Co'npi lat ion anil .^aliheqiient execution of .1 COBOL 
program .ire Initiated by control sliiteracnts. Whe.ii 
a COBOL subschema is ac.-.e.ssed by the program, 
tertaii requirements must be fiiifiilfid before 
compi'i.iy, or e.XrfCUtL'ig "lie program. 

Be.fore a program referencing .1 .•iubschema ean be 
compi.ed, the fi'e on which the subscliema ir.sldes 
must be at I .icheil . Tlie D parameter on the compiler 
cil'. iT-usL ^pe.cify the ^ogi.;al file name of the 
uiibs; hema file. 

When t-hc. compiled program is executed, CDCS 
mouiL'jis :ind interprets a' 1 requests for action O'l 
relations and on dil.i base files, directing all 
oper.itions 'nuolv'ing the storjgc- and retrieval -jf 
diit.i to .nnd from the file through CVBKR Record 
Manager. 

File attacliae-.U niLe.s for progrim execution are at. 
follows; 

Tie fili=! containing the Miib-schema can be 
attached, but is not required. 

The data base '. ites and issociated index liles 
mu.st not be attaclied. 

ilDCS must be .i.':tl\re or the CDCS B.it.'.h Test 
l'aci'..ity miist be usod. liefer lo the appro- 
priate CDCS ri.>feri";iice manua" . 



Recovery Points 

Within a COBOL program tint accesses a '.abschem.i , 
recovery points cm be spe."ified to indicate 
cunven Lent locition;; f.jr restarting tlie prog'-am if 
recovery of the data base is necessary. I'o mark 
a point ilor recovery p'lrpo.ses, the lolLowing 
lit.iterjent m.sf:'- be iX.'Ciiled: 

EtJTER "DB$RPr" USING data-name-l , dara-:iarae-2. 

In the USING ph'Mse, dat-i-namc-J mist be a numeric 
integ.jr dila i Lem with a usage of COMPU'lAlLONAI.-l .1 



DATA BASE FILE ERROR 
PROCESSING 

IJati b.9se tile .ind rel.n Ion '.rrur processing can be 
handled in two ways: 

Sy ..lefiniip .n stat.is b..ock wiln llio UBSDBST 
rou t in-i 

By untiirinp, the. COMPASS object routine C.DMKST 
ror CDCS relation operations, or C.LOSl fur 
cues non-relation operations 
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II ,■ calling the DBJDBST routLno, the COBOL 
.i|"pHcatons program can dct'Lne a status block In 
B'.i mory which is auComatLcally updated by CDCS with 
-rror status Infortnallon. In Drdcr to provide 
•" lOpatibLlity with p.arliur versions of CnCS , the 
'.OBOL applications program can still call r.DMRST 
ur C.XOST to determine the status of CDCS opera- 
tions. Refer to the CDCS reference manual for 
further discussion of CDCS file stat.us triors. 



DB$DBST ROUTINE 

'Iiie COBOL application program can provide CDCS with 
.1 bl ocit in memory (a group item or -in .irray) to 
'viLich data base status unformaLion can be returned. 
"Ii^ data base status block is updated autom:iLical ly 
i"ter every operation on a data base filf or 
r-.'lation. The following information is returned to 
tile data base status block: 

CDCS or CYBER Record Manager error codeu 

The subschema item ordinal for Item level error 

CKM file position codes 

Error severity code 

The function that was biding executed when an 
error occurred 

Tlie rank of the fil»' in a relation for which an 
error, a control break, or a null record 
condition occurred 

The name of the area in which an error occurred 



Data base status block error codes and t'Llf 
position codes are riiturriud to the user as decimsii 
values. The user must convert to octal those 
vdJiiea returned Llial are CRM codes, Ln order to 
correlatij the code with tlioHe listed in the CRM 
reference- manual. Error codes TB'i Ltirough 447 and 
472 through 511 indicate COCS errors; these codes 
and corresponding message ari- listed in the CDCS 
re fe I ence ma nua 1 . 

The li-ngth of the data b.isp Htatus block is 
specltied in wordi. One word provides space for 
eilliiT a lO-charicter DISPLAY rl i-m iir a COMP-1 
item. The longtli of fhp d.ila base status block 
musr i)H at least 1 word and slioull not be greater 
tlian 11 words. CDCS rpturn!', a.s .nuch information as 
possible in the give.n lengtli. 'Llie call that 
communicates the location .uul length of the da fa 
hase status block i'^ : 

ENTER "DB$DBS1"' USING sfitus-block, lengtli 



(The length must be specified by .i data 
defined as COMP-1; status-block indLca!i.'s 
01 level data-name in 
base status block.) 



1 tern 
i.'.ii- 



the des.:ri?tion o! Ihc dala 



A possible COBOL description ot tli'j data baHc 
status block is shown in figure 16-S. Each ele- 
mentary item of DATABASE-STATUS-BLOCK corresponds 
to a word of memory in which partLculjr infi>rmaLion 
Is returned, except DB-REALM which corresponds to 
three words. The following list specifies each 
elemont.iry item of the data base status block, 
indicates tlie corresponding word number foe eacu 
item, and details the information returned in each 
item. 

DATABASE-STATUS - Word 1 



I'.e COBOL application program communicates the 
'■■cation and length of the data base ststus block 
t > CDCS by a call to the CDCS routine, DB$DBST. 
ihe routine can be called at any point in a COBOL 
■inpl Icatton program. Only one data base status 
'ilijck can exist at a time for a program. If 
D'i$DBST is called more than once in a run unit, the 
-■•ta base status block defined in the last call is 
the one that is updated by CDCS. 



Ttie decimal value of the CRM or CDCS error 
code for the last data base operation on a 
flje or relation. If no error luis occurred, 
the value La zero. Note that only error 
codes are returned. If tlie last operation 
was a relation retrieval for which a null 
record or control break occurred, the value 
is 7.ero; the status codes for these condi- 
tions are not returned in DATABASE -STATUS . 



01 DATABASE STATUS-BLOCK. 




02 


DATABASE STATUS 


PICTURE 9(5) USAGE IS COMP-1. 


02 


AUXILIARY-STATUS 






03 DB-ITEM-ORDINAL 


PICTURE 9(5) USAGE IS COMP-1. 




03 DB-FILE-POSITION 


PICTURE 9(3) USAGE IS COMP-1. 




03 DB-SEV-CODE 


PICTURE 9(3) USAGE IS COMP-1. 


02 


DB-FUNCTION 


PICTURE A(10). 


02 


RELATION-RANK-STATUS. 






03 DB-REL- RANK -ERROR 


PICTURE 9(3) USAGE IS COMP-1. 




03 DB-REL-RANK-CTLBK 


PICTURE 9(3) USAGE IS COMP-1. 




03 DB-REL-RANK-NULL 


PICTURE 9(3) USAGE IS COMP-1. 


02 


OB-REALM 


PICTURE X(30). 



Figure 16-8. Data Base Status Block Description 
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DB-ITEM-ORDINAL - Word 2 



TABL£ 16-1. FTIJ: POSITION CODES 



Subschema item ordinal for CDCS item-levoi 
errors. Item-level errors include data 
validation errors, record mapping errors, 
and item-level data base proredure errors. 
The value Ls zero If no errors have 
occurred. The item ordiii-il is .iss'giied by 
the DDL compiler and is identified on the 
subschema listing. 



DB-FTI-E-POSTTION - Word 3 

CUM code indicating the file posiLion of 
the realm when the last ddt.i basi? operatlim 
was performed. For a relation operation, 
the code indie J us the position .jf fhe ro'it 
realm. A file position rode is returned 
when a redd, open, close, or start opera- 
tion is performed. Tlie codes most i-ommonly 
returned during data base operations Jitv 
shown in table 16-!. Furtlier information 
on file position (the FP field of Che file 
information table) is in the CYJJER Record 
M;inager Advanced Accei^s Methods reference 
manual. 



DB-SEV-CODE - Word 4 

Severity of error that occurred during 
execution of the last data base operation, 
llic value is aero if no error or a nonfatal 
error has occurred; the value is one if a 
fatal error has occurred. Word 4 should be 
specified as a COMP-1 data item. 



DB-FUNCTION - Word b 



Decimal 
Codes 


Definition 


8 

\i) 
64 


End-of-key list, which occurs when 
the last primary key value associated 
with a given alternate key has been 
returned during a read operation 
using an alternate key value. 

End-of-record, which occurs when a 
record has been returned during a 
read operation. 

Snd-of-infiirraat ion, which occurs when 
n sequential read operation is 
attempted .ifter- the previous read 
operation returneJ the last record in 
the file. 


DB-EKI- 


RANK-NULL - WufJ 8 



For a relation operation, tlie .owest 
numbered rank fur which there Ls a null 
record. tr zero, there is no nuiJ record. 
The root file of the relation has a rank of 
one. All files in the relation with a r-ink 
greater than the rank stored in DB-REL- 
RANK-SULI. also have null record occurrences. 



DB-REA!,M - Words 9, 10, and 11 

The display code name of the realm or area 
In which an error occurred. 



The function being pcrforned when an error 
occurred . 



DB-REL-RASK-ERROR - Ward 6 

For a relition operation, the rank of the 
file .-m which a CUM .ir CDCS error occurred. 
Thi? root flit-, has a rank of one. Xero is 
returned if there is no error. The CRM or 
CDCS error codi.' is reLii-ned in the item 
DATAilASE-HTATUS . 

An error on a flic during a relaton read 
terminates the operation. Consequently, 
there is never more than one rank ;n the 
relation that hjh a CRM or CDCS error. 



DB-Rl-:i.-RAN-K-CTLaK - Word 7 

For a re La Li on opL'rat'on, the lowest 
numbered rank on which a control break 
occurred. The value Is z.jro Lf iio control 
break exists. Tlu- root file of the 
relation has .i rank of one. All files in 
the relation with a rank greater Llian (he 
rank stored in this word have control break 
status or null status. Null status 
overrides control break status. 



The length of the data base status block is 
variable; the Length can range from 1 to 11 words. 
As a minimum, one word must be provided for the 
error code (for example, the item DATABASE-STATUS 
shown in flguro 16-8). The other items are optional; 
however, any .specification of the data base status 
b^ock must adhere to the following list of Llie 
rules (the rulos reference the description of the 
data base status block shown in figure 16-8;: 

The items Must be defined with the length shown 
and in the order shown. 

For any particul.jr item that is defined, all 
items that precede it must also be defi'ied. 



COMP-1 must 
ind lea ted. 



be used to define the items as 



For inform-it ion to be returned to any elementary 
item of the group Items AUXII-IARY-STAIUS or 
RElJiTIOK-RANK-STATUS, length must be provided 
for all three Uems oi the particular group. 



For example, if the user wants the data ba.sc status 
block to Include only the items DATABASE-STATUS and 
DB-ilKM-ORDlSAL, the user mubt specify a Length of 
four words'!. 
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DB$SiR ROUTINE 



PROGRAM DEBUGGING 



The DB$SIR routine enables and disables the 
immedi.ite return feature. If the JTDinedlate return 
feature is enabi«;d, a COBOL appi ic.-illon program can 
receive an Immediate response from CDCS when 
resource conflicra or fatal errors occur. 1£ tVio 
Immediate return feature Is disabled, a COBOL 
appHnatlon program rannot provide program logic to 
determine the action taken when resource conflicts 
or fatal errors occur. To use the immediaLu return 
feature, the following statement must be executed: 

ENTER "DBSSIR" USING L tem-njimo 

In tile USING phrase, i tem-iiame dcttirmlnes whether 
the inmcdiatc return iieature is enabled or 
disabled. If item-name is not equal to zero, 
immediate return is enabled. If item-name is equal 
to zero, immediate return Is disabled. Item-name 
must be described in its Data Description entry as 
COMPUTATIONAL-l. 

A data base status block must be defined il a COBOL 
program is to be able to detect a fatal error or 
resource conflict. 



Tlie automatic generation by COBOL iif SELECT 
statements for subschema files poses special 
debugging prublcms. The logical file name Irom Lhe 
subschema FIT is used for tmplementor-name-1 and 
implementoi — name-2 in the generated SEI^ECl' state- 
ments. This logical tile name must not appear as a 
uBei — defined word elsewhere in the COBOL program or 
subschema description. TC it does, the fatal 
errors 4136, ■U02, and 3179 ;iri- gfiierate.d . 

Errors occurring on the code for the generated 
SELECT statemeiitK havn liiie and coiumii numbers 
pointing to the subschema name in the SUB-SCHEMA 
clause . 



CDCS TRANSACTION PROCESSING 

The following CDCS transaction processing routines 
are available only under the NOS 2 and K0S/3E 
operating systems. These routines are associated 
with automatic recovery from systora failures. Vor 
more information, sue the CUCS 2 application 
programming reference manual. 



C.DMRST ROUTINE 

Tlic status of data base files within a relation can 
be obtained by entering Die COMJ?ASS object routine 
C.DMRST. This routine scans the files in the order 
the files are traversed, beginning with the root 
file and continuing until a nonzero error rode is 
encountered or all files have been scanned. Fur 
use of this routine, C.DMRST should be entered 
after a READ st.itement is executed for a relation 
in order to determine whether an error occurred 
during the read operation and on which file the 
error occurred. To learn the status of files after 
a relational read, the following statement must bi; 
executed : 

ESTEll "C.DMRST" USING relation-name, 
data-name-1, data-narae-2. 

The USING phrase specilies the name of thi- rflation 
to be checked for file status and two data items 
for returned information. Data-name-1 must be 
an elementary item described as PICTURE XC?). 
Data-name-2 must be a numeric integer data itt!m 
with a size greater than two and a usage of 
COMPUTATIONAL- 1. 

If an error, a null condition, or a control break 
occurs in a file, the iraplcmentur-aame (Logical 
file name) of the file is returned in dita-name-l; 
the CDCS status or error code is returned in 
data-namc-2. The statement can be executed again 
to check for errors or relation conditions on the 
remaining files in the relation. If no errors, 
null records, or control breaks occur on the files 
in the relation, zero is returned to iliita-njme-2; 
the contents of data-name-l arc undefined. 

The use of the DB$D3ST routine provides the user 
with more relevant information about relation 
processing than the use of the C.DMRST routine c<)n 
provide. 



DB$ASK ROUTINE 

The DB$ASK rout lie asks for the ideiiUfior of the 
last committed transactiim . UK$ASK can obtain 
information for a program restart operation after a 
failure. This routine is normally specified in Lhe 
restart unit of the program. Tlie CriLI for DB$ASK 
Is as follows: 

ENTER "DB$ASK" USING restart-id, 
tran-id, err-code 

Restart-id identifies the 1- to 10-character restart 
Identifier assigned to the program prior to tiie 
system failure. Restart-id must be a word-aligned 
alphanumeric data item described as FiC X(10). 

Tran-id receives the 1- to 10-character transaction 
unit identifier of the last completed transaction 
unit. Tran-id is returned only If a transaction 
associated with the specified restart identifier is 
completed betore the system f ailed. it no trans- 
actions arc completed, ten spaces are returned. 
If the restart identifier is unknown to CDCS, 
ten asterisks are returned. Tran-id must be a 
word-aligned alphanumeric data item described as 
PIC XCIO). 

Err-code receives the appropriate three-digit CDCS 
error code if an error occurs, during the eKecutiou 
of the OB$ASK routine. Err-code must be a COMP-1 
: tern . 



DB$BEG ROUTINE 

The DB$BEG routine initiates transaction processing. 
DB$BEG defines the beginning of a transaction to 
CDCS. Records that are subsequently updated remain 
locked until the transaction is either completed or 
dropped. Updates (write, rewrite, and delete 
operations) >ire considered temporary until the 
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transaction is successfully completed. If an 

attempt Is made to execute the DB$BEG routine when 

transaction processing Is not In effect for the 

schema, a fatal error occurs. The call for OB$BEG 
is as follows: 

ENTER "DB$BEG" USING tran-id, err-code 

Tran-id Is the 1- to 10-character transaction 
identifier supplied by the user. Tran-id must be a 
word-aligned alphanimierlc data item described as 
PIC X(10). 



the data administrator hiis not assigned a restart I 
identifier file to the data base, this ruuLlnc : 
cannot be used. 

If the DB$GTID routine executes successfully, CDCS 
returns the assigned restart identifier. The 
cirstrirt identifier should be saved for use in case 
of a system tailure; this identifier should not be 
saved on a data base file. Tlie call fur DB$GT11] Is 
as follows: 

ENTER "Dfl$GTlD" USING restart-id, err-code 



Err-code receives the appropriate three-digit CDCS 
error code if an error occurs during the cxecut Lon 
of the DB$BEG routine. Err-code must be a COMP-1 
Item. 



DB$CMT ROUTINE 

The DB$CMT routine commLts updates in a transaction 
and makes them permanent. DB$CMT indicates the 
completion of a transaction to CDCS. Execution of 
the DB$CMT routine causes ail updates made within 
the current transaction to become permanent. If a 
transaction has not been initiated (refer to thu 
DB$BEG routine) and an attempt is made to execute 
the DB$CMT routine, a fatal error occurs. The call 
for DB$CMT is as follows: 



Restart-id receives the 1- to IO-charai:tet restart 
identifier. Restart-id must be a word-aligned 
alphanumeric data item described as PIC X(10). 

Err-code receives the nppruprlate three-digit CDCS 
error code if an error occurs during the execution 
of the DBSGTID routine. Err-code must he a COMP-l 
item. 



OTHER CDCS ROUTINES 



Two other routines are available, to the NOS 2 and 
NOS/BG user. Tlicse routines involve locks and data 
base versions. For more information, see the CDCS 2 
application programming reference manual. 



ENTER "DB$CMT" USING evr-code 

Err-code receives the three-digit CDCS error code 
If an error occurs during the execution of the 
DB$CMT routine. Err-code must be a COMP-1 item. 



DB$DROP ROUTINE 

The DB$DROP routine cancels the current transaction. 
Execution of the DB$DROP routine causes CDCS to 
restore the records updated wlth:'n the tr.insartion 
to their original slates that existed just before 
the transaction was initiated (refer to the DB$BEG 
routine). Tf a transaction has not been initiated 
and an attempt to execute the DB$DROP routine Is 
made, a fatal error oci-urs. The call for DBSDROP 
is as follows: 

ENTER "DB$DROP" USING err-code 

Err-code receives the appropriate three-digit CDCS 
error code if an error occurs during the execution 
of the DB$DROP routine. Err-code must be a COMP-1 
Item. 



DB$LKAR ROUTINE 

The DB$LKAR routine provides two modes of locking a 
realm: exclusive and protected. Exclusive locking 
prohibits concurrent reading or updating of the 
realm; protected locking allows concurrent reading 
of a realm but prohibits concurrent updating. A 
realm lock remains in effect until cither the 
C.UNLOK routine is entered or the realm is closed 
(a CLOSE statement Is executed). For transaction 
processing, the use of this routine is not recom- 
mended. The DBSLKAR routine is not allowed within 
'1 I r.inS'ict ion. 

The use of a realm lock limits access by other 
users to the realm; also, it overrides the record 
lock and Lhc checking capabilities through the 
record lock. For these reasons, the use of the 
DB$LKAR routine should be carefully considered. 

'Die call fur DB$LKAR is as follows: 

ENTER "DB$LKAR" USING realm-name, 
lock-type, err-code 



Realm-name specifics 
Renlm-name must be the 
subschema. 



the realm to be locked, 
realm name spec ii led in the 



DB$GTID ROUTINE 

The DB$GTID routine obtains the unique restart 
Identifier assigned by CDCS. This identifier can 
subsequently be used to determine the status of a 
transaction after a system failure occurs. This 
routine should be executed before any updaues 
within a tr.-insnctlon are attempted; it must not 
appear within a transaction. nB$CTTD can ho '.isi-d 
only one time for each time CDCS 's invoked. If 



Lock-type specifies the type of locking desired. 
Lock-type can be either a literal or a word-aligned 
a! phanumerii- data item df.scribed as PiC. X(9;. The 
data item must have ;i v.il>ic of cither EXCLUSIVE or 
PROTECTED. 

Err-code receives the appropriate three-digit CDCS 
error code if an error occurs during the uxi-t-ution 
of the DB$LKAR routine. Err-code must be a COMP-1 
item. 
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DB$VERS ROUTINE 



ENTER "PBSVr.RS" rSLNG vrs ion-n;o(' , i-rr-.mli' 



The DB$VERS routine .insooiates n ditf erivit physii^a" 

data base with thu same losical data l>:ine descrip- Vers ion -naiae .spe-'iflos a 1- to 7-v.li'iriictPi- ve.i=;ion 

tion. DB$VF.RS spucities the da'..i b.iSH version usi>d name Ji>scrihecl in tlifi miistiT J-; rectory lor tho 

with a COBOL appi ic-iLion program. 'rhi.K routiiid ran Siliera.i being usi.:d . VcTslon-niimo can be .'ither a 

also be usud Lo change v>'rr,ion.-5 during progra-n LLleral. -jr a d;ii:<j namt described aa Plc: XO ) • 

execution; the rouLinu can be executed several (MASTER is a valid vcriiLon name.,! 

times wirliln the same program. The DUSVl'.RS routine 

Ls not aLJowod within a transaction. Before oacli 

exp.cuti.in of 1)B$VKRS, all Oi the tiubsc>iema realms Err-cmie reccivci Itii. -ippropriaLe three-digii. CDCS 

associated with the old version must lie closed or a error code if an. firmr occiirri durLug tlK: execution 

fata; error results. I'he call tor DB$VERS is as of the DB^V.'VKS routine.. Err-eode musi; Iv .1 OOMP-l 

follows: item. 
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STANDARD CHARACTER SETS 



Control Data operating systems offer the following 
variations of a basic character set (as shovm in 
table A-1): 

CDC 64-character set 

CDC 63-character set 

ASCII 64-character set 

ASCII 63-character set 

The installation can specify the 63-character set 
option in either CDC or ASCII mode (see tables A-2 
and A-3). In either case, the colon becomes 633 
and collates properly. In the ALPHABET clause, the 
mnemonic-names CDC-64 and ASCIX-64 refer to CDC-63 
and ASCII-63 character sets, respectively. 

The set in use at a particular installation is 
specified when the operating system is installed. 

Depending on another installation option, the 
system assumes an input deck has been punched 
either in 026 or in 029 mode (regardless of the 
character set in use). Under NOS/BE, the alternate 
mode can be specified by a 26 or 29 punched in 
columns 79 and 80 of the job statement or any 



7/8/9 card. The specified mode remains in effect 
through the end of the job unless it is reset by 
specification of the alternate mode on a subsequent 
7/8/9 card. 

Under NOS, the alternate mode can be specified by a 
26 or 29 punched in columns 79 and 80 of any 6/7/9 
card, as described for a 7/8/9 card. In addition, 
026 mode can be specified by a card with 5/7/9 
multipunched in column 1, and 029 mode can be 
specified by a card with 5/7/9 multipunched in 
column 1 and a 9 punched in column 2. 

Graphic character representation appearing at a 
terminal or printer depends on the Installation 
character set and the terminal type. Characters 
shown in the CDC Graphic column of the standard 
character set table are applicable to BCD terminals; 
ASCII graphic characters are applicable to ASCII-CRT 
and ASCII-TTY terminals. 



The 
for 
clause 



EBCDIC 64-character subset (table A-4) is used 
tape or card processing through the CODE-SET 



(See section 4.) 



The UNIVAC 1100 Series character set (table A-5) 
can be used for tape processing through the 
CODE-SET clause. (See section 4.) 
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TABLE A-1. COBOL AND STANDARD CHARACTER SETS 





Display 


CDC 


ASCII J 




Hollerith 


External 








COBOL 


Code 


Graphic 


Punch 


BCD 


Graphic 


Punch 


Code 




(octal) 




(026) 


Code 


Subset 


(029) 


(octal) 




00^ 


: (colon) tt 


8-2 


00 


: (colon) ^t 


8-2 


072 


A 


01 


A 


12-1 


61 


A 


12-1 


101 


B 


02 


B 


12-2 


62 


B 


12-2 


102 


C 


03 


C 


12-3 


63 


C 


12-3 


103 


D 


04 


D 


12-4 


64 


D 


12-4 


104 


E 


05 


E 


12-5 


65 


E 


12-5 


105 


F 


06 


F 


12-6 


66 


F 


12-6 


106 


G 


07 


G 


12-7 


67 


G 


12-7 


107 


H 


10 


H 


12-8 


70 


H 


12-8 


110 


1 


11 


1 


12-9 


71 


1 


12-9 


111 


J 


12 


J 


11-1 


41 


J 


11-1 


112 


K 


13 


K 


11-2 


42 


K 


11-2 


113 


L 


14 


L 


11-3 


43 


L 


11-3 


114 


M 


15 


M 


11-4 


44 


M 


11-4 


115 


N 


16 


N 


11-5 


45 


N 


11-5 


116 





17 





11-6 


46 





11-6 


117 


P 


20 


P 


11-7 


47 


P 


11-7 


120 


Q 


21 





11-8 


50 


Q 


11-8 


121 


R 


22 


R 


11-9 


51 


R 


11-9 


122 


S 


23 


S 


0-2 


22 


S 


0-2 


123 


T 


24 


T 


0-3 


23 


T 


0-3 


124 


U 


25 


U 


0-4 


24 


U 


0-4 


125 


V 


26 


V 


0-5 


25 


V 


0-5 


126 


w 


27 


w 


0-6 


26 


W 


0-6 


127 


X 


30 


X 


0-7 


27 


X 


0-7 


130 


Y 


31 


Y 


0-8 


30 


Y 


0-8 


131 


z 


32 


z 


0-9 


31 


Z 


0-9 


132 





33 








12 








060 


1 


34 


1 


1 


01 


1 


1 


061 


2 


35 


2 


2 


02 


2 


2 


062 


3 


36 


3 


3 


03 


3 


3 


063 


4 


37 


4 


4 


04 


4 


4 


064 


5 


40 


5 


5 


05 


5 


5 


065 


6 


41 


6 


6 


06 


6 


6 


066 


7 


42 


7 


7 


07 


7 


7 


067 


8 


43 


8 


8 


10 


8 


8 


070 


g 


44 


9 


9 


11 


9 


9 


071 


+ 


45 


+ 


12 


60 


+ 


12-8-6 


053 


^ 


46 


])( 


11 


40 


* 


11 


055 




47 




11-8-4 


54 


11-8-4 


052 


/ 


50 


/ 


0-1 


21 


/ 


0-1 


057 


( 


51 


( 


0-8-4 


34 


( 


12-8-5 


050 


) 


52 


) 


12-8-4 


74 


) 


11-8-5 


051 


s 


53 


$ - 


11-8-3 


53 


$ 


11-8-3 


044 


= 


54 


= 


8-3 


13 


= 


8-6 


075 


blank 


55 


blank 


no punch 


20 


blank 


no punch 


040 


, (comma) 


56 


, (comma) 


0-8-3 


33 


, (comma) 


0-8-3 


054 


. (period) 


57 


. (period) 


12-8-3 


73 


. (period) 


12-8-3 


056 




60 


— 


0-8-6 


36 


# 


8-3 


043 




61 


( 


8-7 


17 


C 


12-8-2 


133 




62 


]^, 


0-8-2 


32 


3 


11-8-2 


135 




63 


%+t 


8-6 


16 


%t^ 


0-8-4 


045 


" (quote) 


64 


^ 


8-4 


14 


" (quote) 


8-7 


042 




65 


r- 


0-8-5 


35 


(underline) 


0-8-5 


137 




66 


V 


11-0 


52 


I 


12-8-7 


041 




67 


A 


0-8-7 


37 


& 


12 


046 




70 


f 


11-8-5 


55 


' (apostrophe) 


8-5 


047 




71 


1 


11-8-6 


56 


? 


0-8-7 


077 


< 


72 


< 


12-0 


72 


< 


12-8-4 


074 


> 


73 


> 


11-8-7 


57 


> 


0-8-6 


076 




74 


< 


8-5 


15 


@ 


8-4 


100 




75 


> 


12-8-5 


75 


\ 


0-8-2 


134 




76 


—I 


12-8-6 


76 


~ (circumflex) 


11-8-7 


136 


; (semicolon) 


77 


; (semicolon) 


12-8-7 


77 


; (semicolon) 


11-8-6 


073 


Twelve zero bits at the end of a 60-bit word in a zero byte record are an en 


d-of-record mark rather than two cok 


3ns. 


■f^ln installations using a 63-graphic set, display code 00 has no associated graphic 


or card code; display code 63 is the co 


Ion (8-2 punch). 


The % graphic and related card codes do not exist and translations yield a blank 


(558>. 
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TABLE A-2. a)C 64-CHARACTER SET COLLATING SEQUENCE 



Collating 








Collating 








Sequence 


CDC 


Display 


External 


Sequence 


CDC 


Display 


External 


Decimal/Octal 


Graphic 


Code 


BCD 


Decimal/Octal 


Graphic 


Code 


BCD 


00 00 


blank 


55 


20 


32 40 


H 


10 


70 


01 01 


< 


74 


15 


33 41 


1 


11 


71 


02 02 


% 


63 t 


16t 


34 42 


V 


66 


52 


03 03 


[ 


61 


17 


35 43 


J 


12 


41 


04 04 


-* 


65 


35 


36 44 


K 


13 


42 


05 05 


=r 


60 


36 


37 45 


L 


14 


43 


06 06 


A 


67 


37 


38 46 


M 


15 


44 


07 07 


t 


70 


55 


39 47 


N 


16 


45 


08 10 


i 


71 


56 


40 50 





17 


46 


09 11 


> 


73' 


57 


41 51 


P 


20 


47 


10 12 


> 


75 


75 


42 52 


Q 


21 


50 


11 13 


— , 


76 


76 


43 53 


R 


22 


51 


12 14 


. 


57 


73 


44 54 


] 


62 


32 


13 15 


) 


52 


74 


45 55 


S 


23 


22 


14 16 


f 


77 


77 


46 56 


T 


24 


23 


15 17 


+ 


45 


60 


47 57 


U 


25 


24 


16 20 


$ 


53 


53 


48 60 


V 


26 


25 


17 21 


• 


47 


54 


49 61 


w 


27 


26 


18 22 


- 


46 


40 


50 62 


X 


30 


27 


19 23 


/ 


50 


21 


51 63 


Y 


31 


30 


20 24 


r 


56 


33 


52 64 


z 


32 


31 


21 25 


( 


51 


34 


53 65 


' 


00 t 


nonet 


22 26 


= 


54 


13 


54 66 





33 


12 


23 27 


7t 


64 


14 


55 67 


1 


34 


01 


24 30 


< 


72 


72 


56 70 


2 


35 


02 


25 31 


A 


01 


61 


57 71 


3 


36 


03 


26 32 


B 


02 


62 


58 72 


4 


37 


04 


27 33 


C 


03 


63 


59 73 


5 


40 


05 


28 34 


D 


04 


64 


60 74 


6 


41 


06 


29 35 


E 


05 


65 


61 75 


7 


42 


07 


30 36 


F 


06 


66 


62 76 


8 


43 


10 


31 37 


G 


07 


67 


63 77 


9 


44 


11 


tin installations using the 63- 


graphic set 


, the % graph 


lie does not exist. 


The : graph 


ic is display code 63, 


External BCD code 16. 
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TABLE A-3. ASCII CHARACTER SET COLLATING SEQUENCE 



Collating 

Sequence 

Decimal/Octal 


ASCII 

Graphic 

Subset 


Display 
Code 


ASCII 
Code 


Collating 

Sequence 

Decimal/Octal 


ASCII 

Graphic 

Subset 


Display 
Code 


ASCII 
Code 


00 00 


blank 


55 


20 


32 40 


@ 


74 


40 


01 01 


I 


66 


21 


33 41 


A 


01 


41 


02 02 


II 


64 


22 


34 42 


B 


02 


42 


03 03 


# 


60 


23 


35 43 


C 


03 


43 


04 04 


$ 


53 


24 


36 44 


D 


04 


44 


05 05 


% 


63t 


25 


37 45 


E 


05 


45 


06 06 


& 


67 


26 


38 46 


F 


06 


46 


07 07 


t 


70 


27 


39 47 


G 


07 


47 


08 10 


( 


51 


28 


40 50 


H 


10 


48 


09 11 


) 


52 


29 


41 51 


1 


11 


49 


10 12 


* 


47 


2A 


42 52 


J 


12 


4A 


11 13 


+ 


45 


2B 


43 53 


K 


13 


4B 


12 14 




56 


2C 


44 54 


L 


14 


4C 


13 15 





46 


2D 


45 55 


M 


15 


4D 


14 16 




57 


2E 


46 56 


N 


16 


4E 


15 17 


/ 


50 


2F 


47 57 





17 


4F 


16 20 





33 


30 


48 60 


P 


20 


50 


17 21 


1 


34 


31 


49 61 


Q 


21 


51 


18 22 


2 


35 


32 


50 62 


R 


22 


52 


19 23 


3 


36 


33 


51 63 


S 


23 


53 


20 24 


4 


37 


34 


52 64 


T 


24 


54 


21 25 


5 


40 


35 


53 65 


U 


25 


55 


22 26 


6 


41 


36 


54 66 


V 


26 


56 


23 27 


7 


42 


37 


55 67 


W 


27 


57 


24 30 


8 


43 


38 


56 70 


X 


30 


58 


25 31 


9 


44 


39 


57 71 


Y 


31 


59 


26 32 


; 


oot 


3A 


58 72 


Z 


32 


5A 


27 33 


t 


77 


3B 


59 73 


[ 


61 


5B 


28 34 


< 


72 


3C 


60 74 


\ 


75 


5C 


29 35 


= 


54 


3D 


61 75 


] 


62 


5D 


30 36 


> 


73 


3E 


62 76 


, ^ 


76 


5E 


31 37 


? 


71 


3F 


63 77 


— 


65 


5F 


fin installations using a 


63-graphic 


set, the 


% graphic does 


not exist. 


The : grap 


lie is 


display code 63. 
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TABLE A-4. EBCDIC 64-CHAEACTER SUBSET COLLATING SEQUENCE 



Collating 

Sequence 

Decimal/Octal 


Graphic 


EBCDIC 
Punch 


Display 
Code 


EBCDIC 
Code 


00 00 


blank 


no punch 


55 


40 


01 01 


. 


12-8-3 


57 


4B 


02 02 


< 


12-8-4 


72 


4C 


03 03 


( 


12-&-5 


51 


4D 


04 04 


+ 


12-8-6 


45 


4E 


05 05 


1 


12-8-7 


66 


4F 


06 06 


& 


12 


67 


50 


07 07 


$ 


11-8-3 


53 


5B 


08 10 


♦ 


11-8-4 


47 


5C 


09 11 


) 


11-8-5 


52 


60 


10 12 


t 


11-8-6 


77 


5E 


11 13 


—I 


11-8-7 


76 


5F 


12 14 


- 


11 


46 


60 


13 15 


/ 


0-1 


50 


61 


14 16 


> 


0-8-3 


56 


6B 


15 17 


% 


0-8-4 


63 


6C 


16 20 


, 1 


0-8-5 


65 


6D 


17 21 


> 


0-8-6 


73 


6E 


18 22 


7 


0-8-7 


71 


6F 


19 23 


: 


8-2 


00 


7A 


20 24 


# 


8-3 


60 


7B 


21 25 


@ 


8-4 


74 


7C 


22 26 


1 


8-5 


70 


7D 


23 27 


= 


8-6 


54 


7E 


24 30 


n 


8-7 


64 


7F 


25 31 


<: 


12-8-2/12-0 


61 


4A 


26 32 


A 


12-1 


01 


CI 


27 33 


B 


12-2 


02 


C2 


28 34 


C 


12-3 


03 


C3 


29 35 


D 


12-4 


04 


C4 


30 36 


E 


12-5 


05 


C5 


31 37 


F 


12-6 


06 


C6 
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TABLK A-4. EBCDIC 64-CHARACTER SUBSET COLLATING SEQUENCE (Contd) 



Collating 

Sequence 

Decimal/Octal 


Graphic 


EBCDIC 

Punch 


Display 
Code 


EBCDIC 
Code 


32 40 


G 


12-7 

1- 


07 


C7 


33 41 


H 


12-8 


10 


C8 


34 42 


1 


12-9 


1 1 


C9 


35 43 


! 


11-8-2/11-0 


62 


5A 


36 44 


J 


11-1 


12 


D1 


37 45 


K 


11-2 


13 


D2 


38 46 


L 


11-3 


14 


D3 


39 47 


M 


11-4 


15 


D4 


40 50 


N 


11-5 


16 


D5 


41 51 





11-6 


17 


D6 


42 52 


P 


11-7 


20 


D7 


43 53 


Q 


11-8 


21 


D8 


44 54 


R 


11-9 


22 


D9 


45 55 


none 


0-8-2 


75 


EO 


46 56 


S 


0-2 


23 


E2 


47 57 


T 


0-3 


24 


E3 


48 60 


U 


0-4 


25 


E4 


49 61 


V 


0-5 


26 


E5 


50 62 


w 


0-6 


27 


E6 


51 63 


X 


0^7 


30 


E7 


52 64 


Y 


0-8 


31 


E8 


53 65 


z 


0-9 


32 


E9 


54 66 








33 


FO 


55 67 


1 


1 , 


34 


F1 


56 70 


2 


2 


35 


F2 


57 71 


3 


3 


36 


F3 


58 72 


4 


4 


37 


F4 


59 73 


5 


5 


40 


F5 


60 74 


6 


6 


41 


F6 


61 75 


7 


7 


42 


F7 


62 76 


8 


8 


43 


F8 


63 77 


9 


9 


44 


F9 
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TABLE A-5. UNIVAC IICO SERIES COLLATING SEQUENCE [UNI] 



Collating 

SequenCie 

Decimal/Octal 


1108 

Graphic 


Card 
Punch 


Display 
Code 


CYBER 
Graphic 


00 00 


@ 


8-7 


61 


[ 


01 01 


[ 


12-8-5 


75 


> 


02 02 


1 


11-8-5 


70 


t 


03 03 


-V- 


12-8-7 


77 


-■ 


04 04 


A 


11-8-7 


73 


> 


05 05 


blank 


no punch 


55 


blank 


06 06 


A 


12-1 


01 


A 


07 07 


B 


12-1 


02 


B 


08 10 


C 


12-3 


03 


C 


09 11 


D 


12-4 


04 


D 


10 12 


E 


12-5 


05 


E 


11 13 


F 


12-6 


06 


F 


12 14 


G 


12-7 


07 


G 


13 15 


H 


12-8 


10 


H 


14 16 


1 


12-9 


11 


1 


15 17 


J 


11-1 


12 


J 


16 20 


K 


11-2 


13 


K 


17 21 


L 


11-3 


14 


L 


18 22 


M 


11-4 


15 


M 


19 23 


N 


11-5 


16 


N 


20 24 


O 


11-6 


17 





21 25 


P 


11-7 


20 


P 


22 26 


Q 


11-8 


21 


Q 


23 27 


R 


11-9 


22 


R 


24 30 


S 


0-2 


23 


S 


25 31 


T 


0-3 


24 


T 


26 32 


U 


0-4 


25 


U 


27 33 


V 


0-5 


26 


V 


28 34 


w 


0-6 


27 


w 


29 35 


X 


0-7 


30 


X 


30 36 


Y 


0-8 


31 


Y 


31 37 


z 


0-9 


32 


z 
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TABLE A-5. UNIVAC 1100 SERIES COLLATING SEQUENCE [UNI] (Contd) 



Collating 

Sequence 

Oecimal/Octal 


1108 
Graphic 


Card 
Punch 


Display 
Code 


CYBER 
Graphic 


32 40 


) 


12-8-4 


52 


) 


33 41 


- 


11 


46 


- 


34 42 


+ 


12 


45 


+ 


35 43 


< 


12-8-6 


76 


—1 


36 44 


= 


8-3 


54 


ss 


37 45 


> 


8-6 


63 


% 


38 46 


& 


8-2 


00 


: 


i39 47 


$ 


11-8-3 


53 


$ 


40 50 


« 


11-8-4 


47 


• 


41 51 


( 


0-8-4 


51 


( 


42 52 


% 


0-8-5 


65 


-> 


43 53 


: 


8-5 


74 


< 


44 54 


? 


12-0 


72 


< 


45 55 


! 


1t-0 


66 


V 


46 56 


» 


0-8-3 


56 


t 


47 57 


\ 


0-8-6 


60 


= 


48 60 








33 





49 61 


1 


1 


34 


1 


50 62 


2 


2 


35 


2 


51 63 


3 


3 


36 


3 


52 64 


4 


4 


37 


4 


53 65 


5 


5 


40 


5 


54 66 


6 


6 


41 


6 


55 67 


7 


7 


42 


7 


56 70 


8 


8 


43 


8 


57 71 


9 


9 


44 


9 


58 72 


t 


8-4 


64 


=!t 


59 73 


t 


11-8-6 


71 


; 


60 74 


1 


0-1 


50 


/ 


61 75 


. 


12-8-3 


57 




62 76 


a 


0-8-7 


67 


A 


63 77 


^ 


0-8-2 


62 


] 
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DIAGNOSTICS 



B 



Diagnostics occur at two distinct times: 

During compilation, the compiler Itself reports 
program situations that do not conform to 
language specifications. 

During execution of the compiled program, the 
execution-time routines of the system report 
situations that do not allow the program to 
execute . 

Diagnostics are reported in the dayfile and in the 
error file identified by the compiler call. 



Errors in the compiler call Itself are reported by 
these messages: 

* aaa * IS FOLLOWED BY AN INVALID SEPARATOR. 

The valid separators, subject to correct 
usage are , . ) = and / • 

* bbb * IS NOT A VALID PARAMETER. 

See Compiler Call in section 12 for a list 
of valid parameters. 

* ccc * APPEARS MORE THAN ONCE. 

Each parameter of the compiler call can 
appear only once. 

* ddd * IS NOT A VALID VALUE FOR THE CURRENT 
PARAMETER. 

This option is invalid for this parameter. 
See Compiler Call in section 12 for the 
options allowed. 

* eee * APPEARS MORE THAN ONCE AS A VALUE OF A 
PARAMETER. 

Each value of a parameter can appear only 
once. 

* fff * CANNOT BE USED ALONG WITH OTHER VALUES. 

This parameter cannot have multiple values 
assigned to it. 

* ggg * CANNOT BE USED WITHOUT VALUES. 

This parameter, when used, must have values 
assigned to it; for example, PS. 

* hhh * MUST APPEAR WITHOUT VALUES. 

This parameter, when used, cannot have 
values assigned to it; for example, APO. 

* Hi Jjj * PARAMETERS CANNOT USE THE SAME FILE 

L and E can share the same file , I and FDL 
can share the same file, but all other 
parameters must specify unique file names. 



DAYFILE MESSAGES 

The dayfile is the summary of a job during its flow 
through the system. Printed output from every 
batch job contains a job dayfile. When a program 
is compiled or executed Interactively through a 
terminal, messages that would otherwise be written 
to the dayfile are returned to the terminal. Day- 
file messages are under system control. They 
cannot be expanded or suppressed by the program or 
compiler call. 

Detailed diagnostics of program errors are listed 
in the file OUTPUT or In the file designated by the 
E parameter of the compiler call. Only the messages 
that result from system errors or fatal compilation 
or execution conditions are reported In the dayfile. 

Messages written to the dayfile as a result of 
compilation include status messages and notification 
of programmer or system errors: 

nnnnnnB CM, sss.sss OPS, eeeeeeB ECS 

Infonaative message. The number of central 
memory words required for compilation is 
nnnnnn octal. The ntmber of central 
processor seconds required for compilation 
is sss.sss. The amount of ECS used for 
compilation is eeeeee (octal). 



nnn T/W AND 



F ERRORS IN program-id 



Informative message. The number of trivial 
and warning messages generated during 
compilation is nnn. The number of fatal 
errors generated is mmsa. The name of the 
program Is program-id. Fatal errors must 
be corrrected before the program can com- 
pile and/or execute successfully. An error 
in the PROGRAM-ID paragraph produces a 
program name of NO-NAME. 

EMPTY SOURCE FILE 

Programmer error. The file named as having 
the source program to be compiled does not 
have a source program. Possibly the I 
parameter on the compiler call is In 
error. If the file is correct, it might be 
positioned at the end, rather than at the 
beginning, of the source program. 

COBOL 5 COMPILER ABORT 

Error message. Programmer error in ' the 
compiler call caused the compiler to 
abort. A following message, such as *K* IS 
NOT A VALID PARAMETER, might pinpoint the 
error, 

CGABORT or other message beginning with CG 

System error during compilation. Follow 
site-defined procedures for reporting 
software errors or operational problems. 
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Messages written to the dayfile as a result of 
program execution include status messages and 
notification of programmer or system errors; for 
example : 

SOURCE STATEMENT SYNTAX ERROR 

Programmer error In source program. 



CRM ERROR NUMBER nnn 

CRM error nnn detected. Follow site-defined 
procedures for reporting software errors or 
operational problems. 



COMPILATION DIAGNOSTICS 

During source program compilation, the compiler 
produces a variety of diagnostic messages. Through 
parameters on the compiler call, the programmer can 
control the type of messages listed, the location 
of the messages, and the system reaction to some 
messages . 

Under default parameter selection, diagnostic 
Information appears after the source listing on the 
file OUTPUT. The diagnostic header (shown in 
section 12) Is followed by a list of error condi- 
tions detected by the compiler. A summary appears 
after the listing of individual diagnostics. When 
a program compiles without error, no diagnostic 
information appears. 



The total number of errors listed is reported by a 
message: 

n ERRORS LISTED 

The EL parameter of the compiler call determines 
the level of diagnostics listed. Levels are: 

T - Trivial 

Suspicious Usage: although the syntax is 
correct, the usage is questionable. 

An example of a trivial diagnostic Is error 
number 1057: ONLY THE FIRST 7 CHARACTERS 
OF THE PROGRAM NAME ARE USED TO INTERACT 
WITH THE SYSTEM. Although the language 
syntax allows a 30-character user-defined 
word as the program name, the system uses 
only the first 7 characters. 

W - Warning 

Syntax is incorrect, but compilation of the 
statement continues. 

An example of a warning diagnostic is error 
number 1026: THIS ELEMEHT MAY NOT BEGIN IN 
THE A AREA. A program with a warning 
diagnostic often executes successfully. 



F - Fatal 

Unresolved semantic error such that the 
statement cannot be compiled. 

An example of a fatal diagnostic is error 
number 3080: AN ENTRY WITH LEVEL 02 
THROUGH 49 IS ONLY ALLOWED AFTER AN ENTRY 
WITH LEVEL 01 THROUGH 49 OR LEVEL 88. A 
program with a fatal error inhibits loading 
unless the DB»B parameter is used on the 
compiler call. 

C - Catastrophic 

Compiler error: although the compilation 
does not usually terminate, a system 
analyst should be notified. 

An example of a catastrophic diagnostic 
is error number 8020: COMPILER ERROR - 
INVALID OBJECT TYPE. Such errors should 
not appear. Any such message should be 
reported to a system analyst. 

A fifth type of diagnostic, which cannot be 
directly referenced on the EL parameter, is N. 



Usage is allowed by Control Data extensions 
to the standard lang>iage, but not by the 
ANSI standard itself. The program executes 
successfully, unless the ANSI=opt parameter 
specifies that such diagnostics are to be 
treated as a fatal error. 

An example of a nonstandard diagnostic Is 
error number 7284: THE INITIALIZE STATEMENT 
IS NON-STANDARD. Such statements must be 
removed If the program is to conform to 
strict ANSI usage. 

N type diagnostics also indicate that usage 
Is supported at the specified FIPS level. 

An example of a FIPS diagnostic is error 
number 3717: FIPS=3 SUPPORTS OCCURS 
IMPENDING ON. 

When the EL parameter specifies a T, W, F, or C 
option, only diagnostics of the specified level or 
higher are listed as part of the diagnostic output 
of compilation. Levels in order of increasing 
severity are: T, W, F, and C. 

The compiler tallies unlisted messages and reports 
the total as part of the diagnostic summary. 
Messages are: 

nn UNLISTED level ERRORS 

A separate message appears for each level : 
TRIVIAL, WARNING, or FATAL. To obtain a 
listing of these errors, it Is necessary to 
recompile the program with a different EL 
parameter. 
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Nonstandard messages summarized by: 

nn NON-ANSI MESSAGES 

This message only appears if the program is 
compiled with the ANSI parameter specifying 
that nonstandard usage is to be diagnosed. 
To obtain a listing of these errors, it is 
necessary to compile with EL=T. 

The compilation-time diagnostics are listed without 
additional explanation in the COBOL 5 diagnostic 
handbook. 



EXECUTION DIAGNOSTICS 

During program execution, several types of messages 
are produced. 

Status messages that require no action on the 
part of the programmer. An example of such a 
message is START COBOL SORT. 



Fatal error messages indicating errors that 
must be corrected before the program can 
execute successfully. The errors might be 
system errors or programmer errors. System 
errors should be reported to a system analyst. 

When a fatal error causes execution to terminate, 
several lines of diagnostics usually are produced. 
These lines identify: 

Line containing the last source statement 
executed 

Program containing the last source statement 
executed and all programs with active CALL 
statements, including the line numbers of the 
CALL statements 

Condition that caused job termination 

Table B-1 presents the execution-time diagnostics 
in alphabetical order. The table lists the 
message, its significance, and possible programmer 
corrective action to eliminate the error. 



TABLE B-1. EXECUTION DIAGNOSTICS 



Message 



-AT END- NOT ON ROOT AREA 



AT END WHILE TRYING TO 
ACCEPT FROM FILE 



ATTEMPT TO OPEN A LOCKED 
FILE 

ATTEMPT TO OPEN FILE OPENED 
BY ACCEPT OR DISPLAY AND 
PROCESSING DIRECTION 
DIFFERS 

ATTEMPT TO OPEN FILE WITH 
SAME NAME AS AN OPEN FILE 



CALL CAUSED OVERFLOW, NO ON 
OVERFLOW SPECIFIED 



CALLED FROM xxxxx AT SOURCE 
LINE yyyyy 

CALLED PROGRAM NOT IN FDL 
FILE 



CALLS NESTED TOO DEEP IN 
TAF TASK 



CANCEL FOR ROUTINE WHICH 
HAS NOT TAKEN EXIT 



CANCEL FOR STATIC ROUTINE 
IGNORED 



Significance 



CDCS problem. 



Partition boundary encountered. Error 
code is 2022 if ENTER "C.IOST" is 
used. 

Source program error. Error code is 
2005 if ENTER "C.IOST" is used. 

OPEN INPUT on a file used by ACCEPT or 
OPEN OUTPUT or OPEN I-O or OPEN EXTNED 
on a file used by DISPLAY. Error code 
is 2020 if ENTER "C.IOST" is used. 

Source program error. Error code is 
2003 If ENTER "C.IOST" is used. 



The program requested could not be 
loaded. 



Additional information. 



CALL statement was executed, but pro- 
gram named by literal or identifier 
was not on FDL file. 

More than nine CALL statements 
executed without EXIT PROGRAM state- 
ments in called programs. 

Source program error. 



Program declared as STATIC in FDL file 
or by default was cancelled; execution 
not terminated. 



Action 



Follow site-defined procedures for 
reporting software errors or opera- 
tional problems . 

Change program logic to detect and 
process the last file record. 



Remove WITH LOCK of CLOSE or change 
OPEN statement. 

Correct source program. 



Change program to reference correct 
file, file before reopen, or remove 
file references in subprogram. 

Specify ON OVERFLOW phrase of CALL 
statement or increase allowed field 
length. 

None. 



Correct FDL file or source program. 



Change the task to decrease the 
number of active calls. 



Check run unit logic. A program 
cannot be cancelled unless it has 
executed an EXIT PROGRAM statement. 

Correct FDL file or source program. 
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TABLE B-1. EXECUTION DIAGNOSTICS (Contd) 



Message 


Significance 


Action 


CANCELLED PROGRAM NOT IN 
FDL FILE 


CANCEL statement was executed and pro- 
gram named by literal or identifier 
was not on FDL file. 


Correct FDL file or source program. 


COBOL SYSTEM ERROR - 10 
STACK OVERFLOW 


System error. 


Follow site-defined procedures for 
reporting software errors or opera- 
tional problems. 


COBOL SYSTEM ERROR - 10 
STACK UNDERFLOW 


System error. 


Follow site-defined procedures for 
reporting software errors or opera- 
tional problems. 


CRM ERROR NUMBER nnn 


Source program or system error nnn. 


See appropriate CYBER Record Man- 
ager reference manual for error 
code explanation. 


C.DTCMP - PARAMETER NOT 
ALPHANUMERIC OR LESS THAN 8 
CHARACTERS IN LENGTH 


The receiving parameter for C.DTCMP is 
incorrect. 


Make parameter alphanumeric and at 
least 8 characters in lengthii- 


C.FILE CAT.T, - COMMA 
REQUIRED HERE IN CHAR nn 


ENTER "C.FILE" passed an incorrect 
parameter string. 


Correct parameter string. 


C.FILE CALL - FILE ORG NOT 
DIRECT AND TRC SPECIFIED 


ENTER "C.FILE" passed an incorrect 
parameter string. 


Remove TRC parameter from parameter 
list or change file organization. 


C.FILE CALL - ILLEGAL 
PARAMETER STARTING IN CHAR 
nn 


ENTER "C.FILE" passed an incorrect 
parameter string. 


Correct parameter string. 


C.FILE CALL - LFN NOT LEGAL 
FILE NAME - NAME IS xxxxxxx 


File-name specified in ENTER "C.FILE" 
is not a legal file-name. 


Correct call. 


C.FILE CALL - PARAMETER 
DATA ITEM NOT ALPHANUMERIC 


Second parameter of ENTER "C.FILE" is 
not an alphanumeric call. 


Correct call. 


C.FILE CALL - = SIGN 
REQUIRED HERE IN CHAR nn 


Equals sign is required in this 
parameter. 


Correct parameter. 


C.GETBK GIVEN ILLEGAL BLOCK 
TYPE 


System error. 


Follow site-defined procedures for 
reporting software errors or opera- 
tional problems. 


DEADLOCK CONDITION AND NO 
DEADLOCK DECLARATIVE 


Source program error. 


Correct program logic or insert a 
deadlock declarative. 


DELETE FILE ON OPEN FILE - 
IGNORED 


A DELETE FILE was issued on an open 
file. The statement is ignored and 
processing continues. Error code is 
2021 if ENTER "C.IOST" is used. 


Correct program logic. 


DELETE OR REWRITE ON SEQ 
ACCESS FILE WITH NO VALID 
READ PRECEDING 


Source program error. Error code is 
2012 if ENTER "C.IOST" is used. 


Insert READ before DELETE or 
REWRITE, or change to ACCESS MODE 
DYNAMIC. 


ECS TRANSFER ERROR 


System error. 


Follow site-defined procedures for 
reporting software errors or opera- 
tional problems. 


END COBOL MERGE 


Merge status. 


None. 


END COBOL SORT 


Sort status. 


None. 


ERROR IN C.GETEP CALL - 
FATAL 


Parameter required in USING phrase of 
ENTER "C.GETEP" statement is not an 
alphanumeric item or is not specified. 


Correct call. 
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TABLE B-l. EXECUTION DIAGNOSTICS (Contd) 



Message 


Significance 


Action 


FDL ERROR n, LOADING 
CAPSULE xxxxxxx 


Capsule xxxxxxx was not loaded because 
of FDL error n (see Loader reference 
manual for a description of n). This 
is usually a system error. 


Follow site-defined procedures for 
reporting software errors or opera- 
tional problems. 


FILE Ifn NOT CLOSED AT STOP 
RUN AND CANNOT BE CLOSED 


A STOP RUN statement was executed, the 
file Ifn was in the CRM list of files, 
and no matching FIT could be found or 
the proper close routine was not load- 
ed. (It could be in another overlay.) 
The FIT not being found could be due 
to the file being local to an overlay 
or to a user error. 


Close the file before STOP RUN if 
it is a COBOL file. If it is not 
a COBOL file, determine where the 
file originated and take the 
appropriate action. 


FILE Ifn NOT CLOSED AT STOP 
RUN OR CANCEL - CLOSED BY 
COBOL 


A STOP RUN or CANCEL statement was 
executed and a file was in the open 
state (in the case of CANCEL it was a 
file local to the cancelled program). 
The file will close as if a CLOSE 
statement with no optional phrases 
had been executed. 


Close the file explicitly before 
executing the CANCEL or STOP RUN 
statement. 


FILE OPENED INPUT OR I-O 
DOES NOT EXIST 


Source program or job error. Error 
code is 2004 if ENTER "C.IOST" is 
used. 


Make file available before exe- 
cuting program or change OPEN 
statement. 


GIVING MRL LESS THAN SORT 
FILE MRL 


Maximum record length of GIVING file 
is less than maximum record length of 
SD. 


Reconcile GIVING file and SD file 
record length specifications. 


GROW REQUEST ON FIXED SIZE 
BLOCK 


System error. 


Follow site-defined procedures for 
reporting software errors or opera- 
tional problems. 


HOME BLOCK COUNT NOT 
SPECIFIED FOR NEW DA FILE 


Number of blocks to preallocate 
is unknown. Error code is 2006 if 
ENTER "C.IOST" is used. 


Add BLOCK COUNT clause, or HMB to 
USE clause, or HMB on FILE control 
statement. 


ILLEGAL EXIT FROM PERFORM 


In a segmented program, an active 
PERFORM statement has an execution 
point beginning within the range of 
another active PERFORM statement. 
Control was passed to the wrong EXIT. 
A GO TO might have passed control out 
of its PERFORM range and not returned 
to the normal EXIT. 


Correct program logic. All paths 
within the range of a PERFORM must 
be to its EXIT. 


ILLEGAL RECORD TYPE FOR 
REWRITE 


In sequential files, the record type 
for a record to be rewritten must be 
either F (fixed length) or W (control 
word). Error code is 2015 if ENTER 
"C.IOST" is used. 


Change file description to generate 
either F or W type records. 


ILLEGAL REFERENCE 
MODIFICATION 


Reference modifiers are out of range. 


Correct program logic. 


INTERNAL FILE NAME = ifn 


Accompanying messages reference file 
Ifn, which is the implementor-name of 
SELECT. 


Correct program. 


INVALID PARAMETER TO 
-C.IOST- 


An input parameter to C.IOST is not 
defined as expected. The call to 
C.IOST is ignored. 


Correct input parameter. 


INVALID RELATION-NAME 


Source program error. 


Reconcile relation-name with sub- 
schema. 
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TABLE B-1. EXECUTION DIAGNOSTICS (Contd) 



Message 


Significance 


Action 


JOB ABORTED 


Job status. 


Correct condition reported with 
this message. 


LOADER ERROR LOADING COBOL 
SEGMENT 


User or system error. 


Insert a RETURN(CB5C0DE) statement 
immediately before each execution 
of the program and rerun. If this 
fails to solve the problem, follow 
site-defined procedures for report- 
ing software errors or operational 
problems . 


MAX RECORD LENGTH OF FILE 
Ifn REFERENCED IN A 
DISPLAY STATEMENT MUST 
EXCEED 1 CHARACTER 


The maximum record length of the file 
must be greater than 1 character. If 
the file Is also in an OPEN statement, 
the record area must be larger than 1. 


Correct the FILE control statement, 
or if an OPENed file, make the 
record area the right length. 


MRL OR FL SET IN FILE 
STATEMENT IS LARGER THAN 
RECORD AREA - TRUNCATED TO 
RECORD AREA SIZE 


Error is in CRM FILE control state- 
ment. MRL is set to record area size 
and program execution continues. 
Error code is 2024 if ENTER "C.IOST" 
is used. 


Remove FILE control statement. 


MULTI-FILE NOT ASSIGNED TO 
MAGNETIC TAPE 


REQUEST control statement is incor- 
rectly specified or is missing. Error 
code is 2016 if ENTER "C.IOST" is 
used. 


Assign tape with BIEQUEST control 
statement specifying MF option. 


MULTI-VOLUME VERSION 4 
RELATIVE FILE ILLEGAL 


File not compatible with COBOL 5 
because CLOSE UNIT written to file. 


Recreate file without UNIT phrase 
of CLOSE statement. 


NO EXCEPTION PROCESS 
PROVIDED 


Source program omission. 


Add USE AFTER STANDARD ERROR de- 
clarative which refers to this 
file, or add AT END or INVALID 
KEY to input or output statement 
for the file, or add ;> FILE STJiTOS 
' clause to the SELfcCT entry for the 
file. 


OLD RELATIVE FILE EMPTY 
- NO HEADER 


Conflict between specifications and 
existing file. Error code is 2011 if 
ENTER "C.IOST" is used. 


Reconcile file description and file. 


PARAMETER MISMATCH 


Number of parameters specified in the 
USING phrase of the CALL statement is 
greater than or less than the number 
specified in the USING phrase of the 
Procedure Division header. 


Specify identical number of 
parameters in USING phrases. 


PRE 446 BINARY CANNOT BE 
EXECUTED 


Attempt was made to execute binary 
deck created before PSR level 446. 


Recompile program. 


READ ON FILE OPENED FOR 
OUTPUT 


Source program error. Error code is 
2017 if ENTER "C.IOST" is used. 


Change logic or open file for INPUT 
or I-O. 


READ . . . NEXT WITH 
UNDEFINED CURRENT REC 
POINTER 


READ statement cannot be executed be- 
cause internal record is undefined. 
Error code is 2013 if ENTER "C.IOST" 
is used. 


Correct prior condition that caused 
record pointer to be undefined. 


RECORD LENGTH ON OLD 
RELATIVE FILE DIFF THAN 
PROGRAM 


Conflict between specifications and 
existing file. Error code is 2007 If 
ENTER "C.IOST" is used. 


Reconcile file description and file. 


RECORD TYPE NOT PRINTABLE 
ON AN ADVANCING FILE 


Conflict in specifications for file 
referenced by ADVANCING phrase of 
WRITE. Error code is 2002 if ENTER 
"C.IOST" is used. 


Change RT parameter of FILE control 
statement or USE literal clause. 
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TABLE B-1. EXECUTION DIAGNOSTICS (Contd) 




nnnn BECORDS RELEASED 
nnnn RECORDS RETURNED 



RECORDING MODE BINARY ON 
ADVANCING PILE 



REFERENCE TO LINKAGE 
SECTION ITEM NOT IN USING 
LIST 

RELATIVE FILE CREATED WITH 
PRUF=YES BUT RE-OPENED AS 
NON PRUF 



RELATIVE FILE HEADER NOT 
VALID 



-RELEASE- RECORD-NAME NOT 
IN CURRENT SD 

-RELEASE- USED IMPROPERLY 



RETURN EXECUTED AFTER AT 
END DETECTED 



-RETURN- FILE-NAME NOT 
CURRENT SD 

-RETURN- USED IMPROPERLY 



REWRITE RL DOES NOT EQUAL 
OLD RL 



RWCS ERROR IN BODY-NEXT- 
GROHP ROUTINE 



RWCS ERROR IN BODY-PAGING 
ROUTINE 



RWCS ERROR IN SPACING 
ROUTINE 



SET CODE-SET ON ACTIVE FILE 



Sort status, nnnn Is record count. 



Sort or merge status, 
count . 



nnnn is record 



Conflict in specifications for file 
referenced by ADVANCING phrase of 
WRITE. Error code Is 2001 if ENTER 
"C.IOST" is used. 

A Linkage Section Item Is referenced, 
but is not specified in USING phrase 
of Procedure Division header. 

An OPEN INPUT or I-O or EXTEND was ex- 
ecuted on a relative file that was 
created In a program with PRUF=YES 
written In the USE literal in the 
SELECT clause. This program does not 
have such a USE literal. Error code 
is 2023 if ENTER "C.IOST" is used. 

Conflict between specifications and 
existing file. Error code is 2010 if 
ENTER "C.IOST" is used. 

Conflict in specifications. 



Illegal RELEASE statement use. 



A RETURN statement was executed after 
the previous RETURN in this output 
procedure took the AT END exit. AI 
END exit is taken and execution con- 
tinues until 21 such errors are 
detected. 



Conflict in specifications. 



Illegal RETURN statement use. 



For sequential files, the length of 
the record on a REWRITE must be the 
same as the record to be rewritten. 
Error code is 2014 if ENTER "C.IOST" 
is used. 

System error. 



System error. 



System error. 



Source program error. 



None. 
None. 



Change to RECORDING MODE DECIMAL or 
otherwise resolve conflict. 



Correct program. 



Put PRUF-YES in the SELECT clause 
and recompile the program. 



Reconcile file description and 
file. 



Correct record-name in SD or 
RELEASE statement. 

Move RELEASE to within SORT input 
procedure . 

Correct program logic. 



Correct file-name in SD or RETURN 
statement. 

Move RETURN to within a SORT or 
MERGE output procedure. 

Change record description to match 
the record being written. 



Follow site-defined procedures for 
reporting software errors or opera- 
tional problems. 

Follow site-defined procedures for 
reporting software errors or opera- 
tional problems. 

Follow site-defined procedures for 
reporting software errors or opera- 
tional problems. 

Close file before SET statement. 
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TABLE B-1. EXECUTION DIAGNOSTICS (Contd) 



Message 


Significance 


Action 


SORT/MERGE WITHIN 
SORT/MERGE 


Illegal SORT or MERGE statement use. 


Remove SORT or MERGE from input 
procedure or output procedure. 


SOURCE STATEMENT SYNTAX 
ERROR 


Source program error. 


Correct statement. 


START COBOL 
MERGE 


Merge status. 


None. 


START COBOL 
SORT 


Sort status. 


None. 


STOP RUN NOT ENCOUNTERED IN 
PROGRAM 


Source program error. 


Add STOP RUN as last executable 
statement. 


SUBSCRIPT OUT OF RANGE 


Source program error. 


Correct subscript or program logic. 


THE REPORT FOOTING AND THE 
LAST PAGE FOOTING OVERLAP 
SO THE REPORT FOOTING IS 
SUPPRESSED BY THE RWCS 


Report Writer status. 


Correct page specifications. 


THE REPORT HEADING AND THE 
FIRST PAGE HEADING OVERLAP 
SO THE PAGE HEADING IS 
SUPPRESSED BY THE RWCS 


Report Writer status ^ 


'Correct page specifications. 


TUG REPORT IS ALREADY 
INITIATED SO THIS INITIATE 
IS IGNORED BY THE RWCS 


Report Writer status. 


Remove duplicate INITIATE statement 
or otherwise correct program. 


THE REPORT IS NOT INITIATED 
SO THIS TERMINATE IS 
IGNORED BY THE RWCS 


Report Writer status. 


Correct program to initiate report. 


THE REPORT WAS NOT 
INITIATED SO THE RWCS 
INITIATED IT BMFORE 
PROCESSING THIS GENERATE 


Report Writer status. 


Add INITUTE statement or otherwise 
correct program. 


UNALTERED GO TO EXECUTED 


A GO TO statement was executed and 
never altered. 


Delete statement or change logic to 
set statement via ALTER. 


UNIVAC TRANSLATE TABLE 
-C.XTAB- NOT IN CORE 


System error. 


Follow site-defined procedures for 
reporting software errors or opera- 
tional problems. 


UNKNOWN BLOCK OR BAD 
POINTER ADDR 


System error. 


Follow site-defined procedu<res for 
reporting software errors or opera- 
tional problems. 


USING MRL EXCEEDS SORT FILE 
MRL 


Maximum record length of USING file 
exceeds maximum record length of SD. 
Records might be truncated. 


Reconcile USING file and SD file 
record length specif Icalons. 
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Access Control - 

Protection of data from unauthorized access or 
modification- Access control is provided by 
the CDCS privacy module. 

Access Control Key - 

The value an applications program must supply 
to CDCS in order to gain access to a particular 
data base area. 

Access Mode — 

Manner in which records can be inserted into or 
retrieved from a file. Can be sequential, 
random, or dynamic, depending on the ACCESS 
MODE clause. Access mode, open mode, and file 
organization affect subsequent operations 
permitted. 

Actual-Key File - 

File described by ORGANIZATION IS ACTUAL-KEY 
clause. For actual-key files, the primary key 
is a record number that AAM converts to the 
storage location of the record. Program must 
perform any key indexing . 

Advanced Access Methods (AAM) - 

File manager that processes indexed sequential, 
direct access, and actual key file organizations 
and supports the Multiple- Index Processor. See 
CYBER Record Manager. 

Alphabetic Character - 

Character belonging to set of letters A through 
Z and the space. 

Alphanumeric Character - 

Any character in computer character set defined 
in appendix A. Most formats allow only charac- 
ters from the COBOL character set. 

Alternate Record Key - 

Record key defined by ALTERNATE RECORD KEY 
clause. Can be used to read, but not write or 
update, a record in an indexed, direct, or 
actual-key file. System creates an index that 
relates alternate record keys to primary 
keys using the file defined by the second 
implementor-name of an ASSIGN clause. Job must 
preserve index file. 

ANSI Standard Language - 

Language defined in American National Standard 
X3. 23-1974, COBOL, on which this COBOL 5 
compiler is based. Control Data extensions to 
the language are shaded in this manual. 

Application - 

The programs, sources, destinations, queues, 
and Journals that are defined to MCS as an 
application through the Application Definition 
Language (ADL). Typical examples are order 
entry, inventory control, and accounting. 



Application Definition Language (ADL) - 

A language that defines and describes applica- 
tion components to MCS. 



Area 



Uniquely named data base subdivision 
contains data records; a file. 



that 



Arithmetic Expression - 

Any combination of numeric elementary items, 
numeric literals, and the figurative constant 
ZERO connected by arithmetic operators to form 
an expression that reduces to a single value 
when it is evaluated during program execution. 

Arithmetic Operator - 

+ to indicate addition; - to indicate sub- 
traction; * to indicate multiplication; 
/ to indicate division; ** to indicate 
exponentiation. 

Assumed Decimal Point - 

Decimal point position that does not involve 
the existence of an actual character in a data 
item. Has logical meaning but no physical 
representation . 

At End Condition - 

Condition that exists when no further records 
or data are available for processing during 
execution of: READ statement, RETURN state- 
ment, SEARCH statement when no conditions are 
satisfied. Sets FILE STATUS data item. 



Basic Access Methods (BAM) - 

File manager that processes sequential and word 
addressable file organizations. See CYBER 
Record Manager. 

Beginning-of-Information (BOI) - 

CYBER Record Manager defines beginning-of- 
information as the start of the first user 
record in a file. System-supplied information, 
such as an index block or control word, does 
not affect beglnning-of-information. Any 
label on a tape exists prior to beginning-of- 
informatlon. 

Block - 

The term block has several meanings depending 
on context. On tape, a block is information 
between inter record gaps. CYBER Record 
Manager defines several blocks depending on 
organization, as shown in table C-1. 

Body Group - 

In Report Writer, generic name for a report 
group defined by a TYPE clause with a DETAIL, 
CONTROL HEADING, or CONTROL FOOTING phrase. 

Boolean Data Item - 

A data item consisting entirely of the boolean 
characters zero and one. 
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TABLE C-1. BLOCK HPES 



Organization 


Blocks 


Indexed sequential 


Data block; index block 


Direct access 


Home block; overflow block 


Actual key 


Data block 


Sequential 


Block type I, C, K, E 



Boolean Expression - 

An Identifier of a boolean data item, a boolean 
literal, such identifiers and/or literals 
separated by a boolean operator, two boolean 
expressions separated by a boolean operator, or 
a boolean expression enclosed in parentheses. 



Boolean Literal - 

A literal composed of one or more boolean 
characters delimited on the left by the sepa- 
rator B" and on the right by the quotation mark 
separator. 



Collating Sequence - 

Sequence in which the characters that are 
acceptable to a computer are ordered for 
purposes of sorting, merging, and comparing. 
Defined by default, COLLATING SEQUENCE clause, 
ALPHABET clause, or SET statement. 

Comment-Entry - 

Entry in Identification Division that can 
contain any combination of characters from 
computer character set. 

Comment Line - 

Source program line with asterisk or slash in 
column 7 and any characters from computer char- 
acter set in area A and area B of that line. 
Documentary only. / in column 7 ejects page 
before comment is listed in source listing. 

Compilation Time - 

Time at which a COBOL source program is trans- 
lated by the COBOL 5 compiler to an object pro- 
gram that can be loaded and executed. Defined 
by control statement in batch job or interac- 
tive command. Contrast with Execution Time. 

Conceptual Schema - 

In IMF, a contract defining the rules governing 
which information can enter and reside in the 
information base, and the meaning of the infor- 
mation in the information base. 



Break Control Item - 

In Report Writer, item defined by CONTROL 
clause. Synonymous with Control Data Item 
defined by ANSI standard. 



Breakpoint - 

In CID, a designated location in 
where execution is to be suspended. 



program 



Broadcast List - 

A symbolic name defined in ADL that references 
a group of destinations. 



Called Program - 

Program that is the object of a CALL statement. 

Calling Program - 

Program that executes a CALL statement. 

Character-String - 

Sequence of contiguous characters that form a 
COBOL word, a literal, a PICTURE clause 
character-string, or a comment-entry. 

Clause - 

Ordered set of COBOL character-strings that 
make up an entry. 

COBOL Character Set - 

51-character set listed in table 1-1 in sec- 
tion 1. Defined by ANSI standard. 

COBOL Communication Facility (CCF) - 

The part of the COBOL language that allows a 
user to send and receive messages from termi- 
nals. CCF allows the COBOL user to interface 
with the Message Control System (MCS). This 
interface is allowed only under the NOS oper- 
ating system. 



Control Break - 

In Report Writer, change in value of data item 
defined by CONTROL clause that is used to 
control hierarchical structure of a report. 
Control totals are accumulated and formatted 
for presentation to the report file when a 
control break occurs. 

Control Data Item - 

In Report Writer, synonym for Break Control 
Item. 

Control Word - 

A system-supplied word that precedes each W 
type record in storage. 

Coset - 

In IMF, a means of navigating between record 
occurrences in a two-level hierarchy of owner 
and member record types. 

Currency Symbol - 

Character in program character set equivalent 
to display code value 53; or character defined 
by CURRENCY SIGN clause. 

CYBER Record Manager (CRM) - 

A generic term relating to the common products 
BAM and AAM which run under the NOS and NOS/BE 
operating systems and allow a variety of record 
types, blocking types, and file organizations 
to be created and accessed. The execution time 
input/output of COBOL, Sort/Merge 5, ALGOL, and | 
the DMS-170 products is implemented through 
CYBER Record Manager. Neither the input/output 
of the NOS and NOS/BE operating systems them- 
selves nor any of the system utilities such as 
COPY or SKIPF is Implemented through CYBER 
Record Manager. All CYBER Record Manager file 
processing requests ultimately pass through the 
operating system input/output routines. 
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Data Base - 

Collection of information defined by a schema. 
Subschema defines portion of data base that Is 
to be accessed by a COBOL program. Created 
through Data Description Language; accessed 
through CYBER Database Control System. 

Data Description Language (DDL) - 

In CDCS, the language used to structure a schema 
and a subschema. 

Data-Name - 

User-defined word that names a data item de- 
scribed in a Data Description entry. Cannot be 
subscripted, Indexed, qualified, or reference 
modified unless specifically permitted by a 
given format. 

Deadlock - 

A situation that arises in concurrent data base 
access when two or more applications programs 
are contending for a resource that is locked, 
and none of the programs can proceed without 
that resource. 



Direct File - 

File described by ORGANIZATION IS DIRECT clause. 
Characterized by preallocated home blocks. 
Location of record determined by hashing key of 
record to a home block number. Synonymous with 
Direct Access File. 

Disable - 

The term that indicates deactivating the logical 
connection between MCS and one or more communi- 
cations devices under the NOS operating system. 

Dynamic Access - 

Access mode that allows a nonsequential file on 
mass storage to be accessed randomly or sequen- 
tially depending on the format of the access 
statement. 

Dynamic Program - 

A program loaded by the Fast Dynamic Loader 
facility at the time the first CALL statement 
referencing the program is executed. It is 
unloaded when a CANCEL statement is executed. 
Contrast with Static Program. 



Debug Mode - 

In CID, a mode of execution in which special 
CID tables are generated during compilation and 
programs are executed under CID control. 

Debugging Facility - 

Capability within COBOL 5 compiler and execution 
routines that Implements the DEBUGGING MODE 
clause, lines with D in column 7, and debugging 
declarative sections. 



Edited Item - 

Item whose PICTURE clause contains an editing 
symbol BO+-CRDBZ*$, .or/. 

Embedded Key - 

A key that is an integral part of a record, as 
opposed to a key that is defined in the Working- 
Storage Section of a COBOL program. 



Debugging Line - 

Any line with D in column 7 of the source pro- 
gram. Compiled as executable code if DEBUGGING 
MODE clause is used or DB=DL parameter appears 
on compiler call; otherwise compiled as comment 
line. 

Delimited Scope Statement - 

Any statement that includes an explicit scope 
terminator. 

Delimiter - 

Character or sequence of contiguous characters 
that Identify the end of a string of characters 
and separate that string of characters from the 
following string of characters. Not part of 
the string of characters that it delimits. 

Destination - 

A named output device or collection of output 
devices that can receive messages. The recipi- 
ent of a transmission from an output queue. 

Direct Access File - 

In the context of AAM, a direct access file Is 
one of the three file organizations supported by 
AMM. Implemented according to AAM direct files. 
Characterized by the system hashing of the 
unique key within each file record to distribute 
records randomly in blocks called home blocks 
of the file. Synonymous with Direct File. 

In the context of NOS permanent files, a direct 
access file is a file that Is accessed and modi- 
fied directly, as contrasted with an indirect 
access permanent file. 



Enable - 

A term used to indicate activating or reacti- 
vating the logical connection between MCS and 
one or more given communication devices under 
the NOS operating system. 

End-of-Group Indicator (EGI) - 

A character defined in the application defini- 
tion that logically separates a group of several 
messages from succeeding messages and signals 
the end of a group of messages to MCS or a 
COBOL program. 

End-of -Information (EOI) - 

CYBER Record Manager defines end-of-lnformatlon 
in terms of the file organization and file 
residence. See table C-2. 

End-of-Message Indicator (EMI) - 

A conceptual indicator that delimits one message 
from the next message and notifies MCS or a 
COBOL program that the end-of -message condition 
exists. 

End-of -Segment Indicator (ESI) - 

A conceptual Indicator that delimits one segment 
within a message from the next segment within a 
message and notifies MCS or a COBOL program 
that the end-of-segment condition exists. 

Entry - 

Descriptive set of consecutive clauses termi- 
nated by a period and written In Identification, 
Environment, or Data Division. 
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TABLE C-2. END-OF-INFOKM&TION BOUNDARIES 



File 


File 


Physical 


Organization 


Residence 


Position 


Sequential 


Mass storage 


After the last 
user record. 




Labeled tape 


After the last 




in SI, I, S, 


user record and 




or L format 


before any file 
trailer labels. 




Unlabeled 


After the last 




tape in SI 


user record and 




or I format 


before any file 
trailer labels. 




Unlabeled 


Undefined . 




tape in S or 






L format 




Word 


Mass storage 


After the last 


Addressable 




word allocated 
to the file, 
which might be 
beyond the last 
user record. 


Indexed 


Mass storage 


After the record 


Sequential , 




with the highest 


Actual Key 




key value. 


Direct 


Mass storage 


After the last 


Access 




record in the 
most recently 
created overflow 
block or home 
block with the 
highest relative 
address . 



Execution Time - 

Time at which a compiled source program is exe- 
cuted. Also known as object time. Defined by 
LGO or EXECUTE control statement or their equiv- 
alent in a batch job or interactive command. 

Explicit Scope Terminator - 

A reserved word that is included in a delimited 
scope statement and which terminates the scope 
of a particular conditional statement. Examples 
are END-IF, END-SEARCH, and END-PERFORM. 

Extended Memory - 

Core type storage which is physically located 
outside of the machine. Formerly referred to 
as Extended Core Storage (£CS) or Large Central 
Memory (LCM). 

External File - 

A file that contains the EXTERNAL clau&e in 
the FD entry for the file. The file can be 
described in any program in the run unit, but 
it exists Externally to the program and is 



shared by all programs that describe it. All 
External files in a run unit must be described 
in the main program. 

External Schema - 

In IMF, a particular view of the information in 
the Information base to accommodate the need$ 
of one or more application programs. 



Fast Dynamic Loader (FDL) - 

A facility that provides fast loading and 
unloading of specially formatted code called 
overlay-capsules. The amount of memory re- 
quired for job execution is greatly reduced 
because overlay-capsules are easily loaded and 
unloaded as needed, freeing memory for other 
uses. 

Federal Information Processing Standard (FIPS) - 

Standard used by the federal government for 
internal control or procurement. FIPS PUB 
21-1, issued by the National Bureau of Stand- 
ards, describes a set of leveling specifica- 
tions and requires all Implementors to diagnose 
items differing from a specified level. Level 
to be diagnosed is specified through FIPS 
parameter on compiler call. 

File - 

Collection of records defined by SELECT clause 
and described by FD, SD, or RD entry. 

File Organization - 

Defined by ORGANIZATION clause. Can be 
sequential, indexed, relative, direct, actual- 
key, or word-address. Established at time file 
is created and cannot change as long as file 
ejtlsts. Affects access mode, open mode, and 
formats of statements that can be used to 
manipulate file records. 



High Order End - 

Leftmost character of string of characters; 
leftmost bit of a string of bits. 

Home Block - 

Mass storage allocated for a file with direct 
access organization at the time the file is 
created. 



Implementor-Name - 

System-name that refers to a particular feature 
available in COBOL 5. Particular implementor- 
names iguch as CDC-64 and SWlTCH-6 are \mique to 
COBOL 5 but are Within ANSI standard. 

Index - 

In the context of AAM, a setles of keys and 
pointers to records associated with the keys. 
The system creates an index for AAM files 
which relates alternate record keys to primary 
keys. Using the file defined by the second 
Implemeii tor-name of an ASSIGN clause. 

In geiieral eontext, a computer storage area or 
register, the cotitent of which represents the 
identitlcation of a particular element. 
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Index Data Item - 

Data item defined by USAGE IS INDEX clause. 
Can hold index-names. 



Invitation List - 

A symbolic name defined in ADL that refers to a 
group of sources. 



Index File - 

In the context of AAM, a file that contains a 
series of keys and pointers to records asso- 
ciated with the keys. The index file, once 
created, must be preserved by a job. See Index. 

Index-Name - 

User-defined word that names an index asso- 
ciated with a specific table. Defined by 
INDEXED phrase of OCCURS clause. 

Indexed File - 

File described by ORGANIZATIOlii IS INDEXED 
clause. Implemented according to AAM indexed 
files. Characterized by records always being 
in physical and logical order by prime key 
values. Synonymous with indexed sequential 
file. 

Information Base - 

In IMF, a set of sentence occurrences satisfying 
the rules of the conceptual schema. The infor- 
mation base Is stored in one or more permanent 
disk files. 

Information Manipulation Language (IML) - 

A directive language used by COBOL application 
programs to access the information base through 
its external schema. 

Information System - 

In IMF, the information base, the rules govern- 
ing the information base, and the Interactions 
that can be performed upon the information base. 

Input File - 

File referenced in OPEN statement with INPUT 
phrase after OPEN statement execution and 
before CLOSE statement execution. 

Input Procedure - 

In Sort/Merge, set of statements defined by 
INPUT PROCEDURE phrase of SORT statement. 
Executes prior to physical sort. Alternative 
to USING phrase. Must include RELEASE state- 
ment for each record to be sorted. 

Integer - 

Numeric literal or numeric data item that does 
not include any character positions to the 
right of the assumed decimal point. Must not 
be signed or have a zero value unless explic- 
itly allowed for a given format. 

Internal Schema - 

In IMF, a description of how information de- 
fined in the conceptual schema Is physically 
represented in the information base. 

Invalid Key Condition - 

Condition that exists during execution when a 
specific value of the key associated with an 
indexed, direct, actual-key, or relative file 
is not valid for the access being attempted. 
Sets FILE STATUS data item. 



Job Step - 

The execution of a control statement. 

Journal - 

A file that receives copied messages as they 
are transferred into or out of queues. The 
journal provides a record of message transfer 
activities for recovery purposes. 



Key Item - 

Data item that defines the location, size, 
and characteristics of a key for a relative, 
indexed, direct, actual-key, or word-address 
file. During execution, contents of item 
specifies information the system can use to 
locate record in file. Also, data item that 
serves to identify the ordering of data. 

Key of Reference - 

Either the primary key field or alternate 
record key field currently being used to access 
records in an indexed, direct, or actual-key 
file. 

Keyword - 

Reserved word whose presence is required when 
the format in which the word appears is used in 
a source program. 



Language-Name - 

System-name that specifies a particular pro- 
gramming language. COMPASS and FORTRAN-X are 
the only language-names allowed in the ENTER 
statement. 

Level - 

Value of a level-number that indicates either 
the hierarchical position of a data item or the 
special properties of a Data Description entry. 
Value can be 01 through 49, 66, 77, or 88. 

For system-logical-records, an octal number 
through 17 in the system-supplied 48-bit marker 
that terminates a short or zero-length PRU. 

Library - 

In COBOL, source of text to be used during COPY 
statement processing. In operating system 
context, file produced by EDITLIB utility 
containing executable code in format required 
by system loader. 

Library-Name - 

User-defined word that names a file containing 
a random Update program library that is to be 
used by the compiler during compilation of a 
source program containing COPY statements. 
Also used to specify the library from which a 
dynamic subprogram is to be loaded. 
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Literal - 

Character-string whose value is implied by the 
ordered set of characters that make up the 
string. See Nonnumeric Literal and Numeric 
Literal. 



Mode-Name - 

System-name that refers to a particular method 
of data representation on a magnetic tape. 
DECIMAL and BINARY in the RECORDING HODE clause 
are the only two mode-names. 



Lock - 

In CDCS, when a file or record has been locked, 
it can be updated only by the program process- 
ing the lock. Other program's access to the 
locked file or record is restricted. 



Multiple File Set - 

Tape reel or reels with more than one individu- 
ally labeled file. 



Logical Record - 

In COBOL, equivalent to a record. 

Under NOS, a data grouping that consists of one 
or more PRUs terminated by a short PRU or zero- 
length PRU. Equivalent to a system-logical- 
record under NOS/BE. 

Low Order End - 

Rightmost character of a string of characters; 
rightmost bit of a string of bits. 



Mass Storage - 

Disk pack or other rotating mass storage device. 
Not a magnetic tape. 

Mass Storage File - 

File assigned by control statements to a disk 
or disk pack. Can have any organization. 

Message - 

Data associated with an EMI or an EGI. 

Message Control System (MCS) - 

The subsystem that provides a generalized 
method of queuing, routing, and journaling of 
messages that pass between on-line COBOL pro- 
grams and telecommunications equipment in the 
network. It can only be used under the NOS 
operating system. 



Native Character Set - 

Character set associated with system. Defined 
by installation when COBOL 5 is installed. 

Native Collating Sequence - 

Collating sequence associated with native 
character set. Defined by Installation. Can 
be overridden by COLLATING SEQUENCE clause or 
SET statement. 

Noise Record - 

Number of characters the tape drivers discard 
as being extraneous noise rather than a valid 
record. Value depends on installation settings. 

Nonnumeric Literal - 

Literal bounded by quotation marks. Can in- 
clude any character in computer character set. 
To represent a single quotation mark character 
within a nonnumeric literal, two contiguous 
quotation marks must be used. 

Numeric Character - 
Digit through 9. 

Numeric Literal - 

Literal composed of one or more numeric charac- 
ters. Can contain decimal point, algebraic 
sign, or both. Decimal point must not be the 
rightmost character. Algebraic sign must be 
leftmost character. 



Message Count - 

The count of the number of complete messages 
that exists in the designated message queue. 

Message Indicators - 

The conceptual Indicators that notify MCS or an 
application program that the specified condition 
exists. The indicators are EGI ( end-of -group 
indicator), EMI (End-of-Message Indicator), and 
ESI (end-of -segment indicator). An EGI indi- 
cator implies the presence of an ESI and an 
EMI. An EMI implies the presence of an ESI. 



Message Segment - 

Data that forms a logical subdivision 
message, normally associated with an ESI. 



of a 



Metabase - 

In IMF, a special information base containing 
the description of the logical definition and 
physical organization of the information base. 
The metabase, which is created and used only by 
IMF, contains the conceptual schema, internal 
schema, and external schema definitions. 

Mnemonic-Name - 

User-defined word associated with an 
implementor-name In the SPECIAL-NAMES para- 
graph of the Environment Division. 



Object Time - 

See Execution Time. 

Open Mode - 

File state that allows records to be either 
written to or read from a file. Defined by 
OPEN statement phrase. Affects subsequent 
statements that can be used to access the file. 

Operand - 

Data referenced by any lowercase word or words 
that appear in a statement or entry format. 

Output Procedure - 

In Sort/Merge, set of statements defined by 
OUTPUT PROCEDURE phrase of SORT or MERGE state- 
ment. Executes after physical sort or merge. 
Alternative to GIVING phrase. Must include 
RETURN statement for each record to be retrieved 
from sort or merge. 

Overflow Block - 

Mass storage the system adds to a file with 
direct access organization when records cannot 
be accommodated in the home block. 
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Overlay - 

A portion of a program, consisting of one or 
more modules, that can share an allocated area 
of memory with other portions of the program. 
When access to a particular module is required, 
the overlay containing that module is loaded, 
thus overlaying the previous contents of the 
memory area allocated for that overlay. This 
allows large programs to execute in a limited 
amount of memory. 

Overlay-Capsule (OVCAP) - 

A special capsule designed for use with over- 
lays. An OVCAF is analogous to a primary 
overlay in that it must be called Into memory 
by a main overlay, and it can reference entry 
points and common blocks in the main overlay. 

Owncode - 

A closed COMPASS subroutine written by the user 
that provides the capability to insert, sub- 
stitute, modify, or delete input and output 
records during direct-call Sort/Merge proc- 
essing. 



Paragraph - 

In Procedure Division, paragraph-name fol- 
lowed by separator period and zero, one, or 
more entries. In Identification Division and 
Environment Division, paragraph header followed 
by zero, one, or more entries. 

Paragraph Header - 

In Identification Division and Environment 
Division, specific predefined reserved words 
followed by separator period. 

Partition - 

Defined by BAM as a division within a file with 
sequential organization. Generally, a parti- 
tion contains several records or sections. 
Implementation of a partition boundary is 
affected by file structure and residence. See 
table C-3. 

Notice that in a file with W type records, a 
short PRU of level terminates both a section 
and a partition. 

Permanent File - 

Feature of operating system. When the job 
requests permanent file status, the file re- 
mains on mass storage when the Job terminates 
so that it can be accessed by other jobs in 
the future. Requested by control statements 
outside source program. 

Phrase - 

Optional portion of a clause or statement. 

Primary Key - 

Key defined by RECORD KEY IS clause for indexed, 
direct, or actual-key file. Determines physi- 
cal placement of a record. File creation and 
updating is only by key. Synonymous with prime 
key. Contrast with Alternate Record Key. 

Printable Item - 

In Report Writer, printable line is defined by 
a LINE NUMBER clause. 

Privacy Module - 

See Access Control. 



TABLE C-3. PARTITION BOUNDARIES 





Record 


Block 




Device 


Type 


Type 


Physical Boundary 




(RT) 


(BT) 




PRU 


W 


I 


A short PRH of 


device 






level containing 
a one-word deleted 
record pointing 
back to the last I 
block boundary, 
followed by a con- 
trol word with a 
flag Indicating a 
partition boundary. 




w 


C 


A short PRU of 
level containing 
a control word 
with a flag indi- 
cating a partition 
boundary. 




D,F,R, 


C 


A short PRU of 




T,H,Z 




level followed by 
a zero-length PRU 
of level 178 . 




S 


- 


A zero-length PRU 
of level number lyg. 


S or L 


W 


I 


A separate tape 


format 






block containing as 


tape 






many deleted rec- 
ords of record 
length as re- 
quired to exceed 
noise record size, 
followed by a de- 
leted one-word 
record pointing 
back to the last I 
block boundary, 
followed by a con- 
trol word with a 
flag indicating a 
partition boundary. 




W 


C 


A separate tape 
block containing as 
many deleted rec- 
ords of record 
length as re- 
quired to exceed 
noise record size, 
followed by a con- 
trol word with a 
flag indicating a 
partition boundary. 


\ 


D,F,T, 
R,U,Z 


C,K,E 


A tapemark. 




S 


- 


A tapemark. 


Any 


_ 


_ 


Undefined. 


other 








tape 








format 
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Procedure - 

In iProcedure Division, paragraph or group of 
logically Buccessive paragraphs or a section or 
group of logically successive sections. 

Procedure-Name - 

In Procedure Division, user-defined word that 
names a paragraph or section. 



PRU 



Under NOS and MOS/BE, the amount of information 
transmitted by a single physical operation of a 
specified device. The size of a PRU depends on 
the device. See table C-4. A PRU which is not 
full of user data is called a short PRU; a PRU 
that has a level terminator but no user data Is 
called a zero-length PRU. 

TABLE C-4. PRU SIZES 



Device 


Size In Number 
of 60-Bit Words 


Mass Storage (NOS and 
HOS/BE only)* 

Tape in SI formit With 
coded data (NOS/ BE only). 

Tape m SI fotmat with 
binary ddta. 

Tape in I format (lioS 
only). 

Tape in any other format. 


64 

128 

512 

512 

Undefined. 



PRU Device - 

Under NOS and NOS/BE, a mass storage device or 
a tape in SI or 1 format, so called because 
records on these devices are written in FRUs. 

Pseudo-File-Name - 

User-defined word that names a file residing on 
a tape referenced In a MULTIPLE TAPE FILE 
clause for which no FD entry is specified k 
File cannot be accessed in program. 

Pseudo-Text - 

Source program text consisting of character- 
strings, comment lines, and/or separators 
bounded by> but not including, pseudo-text 
delimiters. 



Pseudo-Text Delimiter - 

Two contiguous equal sign characters (= 
to delimit pseudo-text. 



') used 



Qualification '- 

Method of uniquely tfeferenclng user-defined 
words or particular special registers. Per- 
formed by following word or register with OF or 
IN and appropriate qualifier. 

Qualifier - 

Word used to uniquely reference user-defined 
word or special register. Can be data -name, 
file-name, section-name, library-name, or 
report-name. 



Queue - 

A storage area for messages. A logical col- 
lection of messages stored in an area before 
being transmitted c>r delivered to a specified 
destination. 

Queue (compound) - 

A queue that has subqueues; a hierarchlal 
structure. 

Queue (input) - 

A queue that accumulates messages acquired from 
external sources. 

Queue (inter program) - 

A queue that accumulates messages sent by one 
program and destined for another program. 

Queue (output) - 

A queue that accumulates messages to be de- 
livered to external destinations. 

Queue (response) - 

A queue that stores the MCS response to a 



message sent by a COBOL program. 



Queue (simple) - 

A queue that does not have subqueues. Output 
queues and interprogram queues are simple 
queues. Input queues can be either simple or 
compound queues. 



Random Access - 

Access mode that allows a nonsequential file on 
mass storage to be accessed by key value. 
Contrast with Sequential Access. 

Random File - 

In the context of CYBER Record Manager, a file 
with word addressable. Indexed sequential, 
direct access, or actual key organization in 
which Individual records can be accessed by the 
values of their keys. Contrast with Sequential 
File. 

In the context of the NOS or NOS/BE operating 
systems, a file With the random bit set in the 
file information table in which individual 
recotds are accessed by their relative PRtj 
numbers. 

Realm - 

File that IS described by the user in a sub- 
schema. A naiiied collection of data base records 
subject to access by a COBOL program. 

Record - 

In COBOLj unit of a tile. Defined by level 01 
Datd Sesciciptioil entry. 

CYBER Record Manager defines a tecord ab H 
group 6i related characters. A record or a 
portion thereof is the smallest collection of 
information JiasSed between CYBER Record Maiiaget 
and k user program. Eight diffetfent record 
types exist, as defined by the RT field of the 
file information table. 

Other parts of the operating systems and their 
products might have additional or different 
definitions of records. 
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Record Area - 

Memory area used to process record. Named by 
record-name in level 01 Data Description entry. 

Record Description Entry - 

Set of Data Description entries that furnish 
information about the physical structure and 
identification of a record. 

Record Key - 

For indexed, direct, and actual-key files, 
primary key or alternate record key. For 
relative files, the key item defined by the 
RELATIVE KEY clause. For word-address files, 
key item defined by WORD-ADDRESS KEY clause. 

Record Type - 

The term record type can have one of several 
meanings , depending on the context . CYBER 
Record Manager defines eight record types 
established by an RT field in the file informa- 
tion table. Tables output by the loader are 
classified as record types such as text, relo- 
catable, or absolute, depending on the first 
few words of the tables. 

Reference Modification - 

A method of referencing a data item at a posi- 
tion other than the first character position by 
specifying its leftmost character position and 
length. 

Relation - 

The logical structure formed by the Joining of 
records based on common identifiers. 

Relation Condition - 

Type of conditional expression which compares 
the values of two operands to determine alter- 
native paths of action. 

Relative File - 

File described by ORGANIZATION IS RELATIVE 
clause. Characterized by fixed length records 
with key values equivalent to ordinal positions 
of records In file. 

Repeating Group - 

A group data item which is described with an 
OCCURS clause or a group data item subordinate 
to a data item which is described with an 
OCCURS clause. 

Report File - 

In Report Writer, file whose FD entry contains 
a REPORT clause. Details of report are speci- 
fied in RD entry in Report Section. 

Reserved Word - 

COBOL word specified in the list of words of 
appendix D which can be used in a COBOL source 
program, but which must not appear in program 
as user-defined words or system-names. 

Root File - 

The file that ranks lowest in a relation; its 
record occurrences are pictured at the root of 
a tree in a hierarchical tree structure. 

Run Unit - 

Main program and any subprogram it calls plus 
execution routines needed to execute the main 
and subprograms. 



Schema - 

A detailed description of the internal structure 
of a data base. A schema is not specified in 
the COBOL environment. 

Section - 

In COBOL, group of one or more paragraphs 
introduced by section header; predefined in 
Environment and Data Divisions, user-defined in 
Procedure Division- 
Defined by BAM as a division within a file with 
sequential organization. Generally, a section 
contains more than one record and is a division 
within a partition of a file. A section ter- 
minates with a physical representation of a 
section boundary. See table C-5. 

The NOS and NOS/BE operating systems equate a 
section with a system-logical-record of level 
through 16g. 

Sentence - 

One or more consecutive statements terminated 
by a separator period. 

Sequential Access - 

Access mode that allows a sequential or nonse- 
quential file to be accessed by record position. 
Contrast with Random Access. 

Sequential File - 

File described by ORGANIZATION IS SEQUENTIAL 
clause. Characterized by access to records 
only by position of record in file. Can reside 
on magnetic tape or mass storage. Contrast 
with Random File. 

Short PRU - 

A PRU that does not contain as much user data 
as the PRU can hold and that Is terminated by a 
system terminator with a level number. 

Under NOS, a short PRU defines EOR. 

Under NOS/BE, a short PRU defines the end of a 
system-logical-record. In the CYBER Record 
Manager context, a short PRU can have several 
interpretations depending on the record and 
blocking types. 

Source - 

A named physical device from which messages can 
be received under MCS. 

Source Program - 

Syntactically correct set of COBOL statements 
beginning with an Identification Division and 
ending with the end of the Procedure Division. 
Also known as program. 

Sparse Key - 

An alternate key that is used infrequently. 
Only those alternate key values of interest are 
included in the index file. The ALTERNATE 
RECORD JCEY WITH DUPLICATES clause is used to 
specify keys of interest. 

Statement - 

Syntactically valid combination of words and 
symbols written in Procedure Division. 
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TABLE C-5. SECTION BOOilDARIES 





Record 


Block 




Device 


Type 
(Rt) 


Type 
(BT) 


Physical 
Representation 


PRU 


W 


I 


A deleted one-word 


device 






record pointing 
back to the last I 
block boundary 
followed by a con- 
trol word with 
flags indicating a 
section boundary. 
At least the con- 
trol word is in 
a short PRU of 
level 0. 




W 


C 


A control word with 
flags indicating a 
section boundary. 
The control word 
is In a short PRU 
of level 0. 




D,F,R, 


C 


A short PRU with a 




T,D,Z 




level less than 
178. 




S 


- 


Undefined. 


S or L 


W 


I 


A separate tape 


format 






block containing 


tape 






as many deleted 
records of record 
length as re- 
quired to exceed 
noise record size, 
followed by a de- 
leted one-word 
record pointing 
back to the last I 
block boundary, 
followed by a con- 
trol word with 
flags indicating a 








section boundary. 




W 


c 


A separate tape 
block containing 
as many deleted 
records of record 
length as re- 
quired to exceed 
noise record size, 
followed by a con- 
trol word with 
flags Indicating a 
Sgctlon boundary. 




D.F.R, 


C.K.E 


Undefined. 




T,U,Z 








S 


- 


undefined. 


Any 


_ 


_ 


Undefined . 


other 






■ 


tape 








format 









Static Program - 

A program that is loaded into memory with the 
base module and ceoiains resident throughout job 
execution. Contrast with Dynamic Program. 

Subqueue - 

A lower level queue In a queue hierarchy. 

Subschema - 

Description of part of a data base that is to 
be accessed by COBOL program. Created through 
Data Description Language; accessed through 
C1BER Database Control System interfaces. Items 
can be used In a program, but the description 
of the items is in the subschema rather than 
the progran itself. 



Sum Counter - 

In Report Writer, signed 
established by SUM clause- 
summing operations. 



numeric data Item 
Contains result of 



Switch - 

Software convention that can have the status 
OFF or ON. SWnCH-l through SWiTCH-126 can be 
defined in SPECIAL-NAMES paragraph. First six 
switches are external and can be manipulated by 
SWITCH control statement, terminal user, oper- 
ator, or SET. statement. Switches 7 through 126 
are Internal and can be manipulated by the SET 
statement. . 

Symbolic Name - 

A user-defined name representing a source or 
destination; references queues, terminals, and 
programs. It is used in the Communication 
Section, Data Division of the COBOL program, 
and defined in the application definition. 

System-IiOgical-Record - 

Under NOS/BE, a data grouping that consists 
of one or more PRUs terminated by a short PRU 
or zero-length PRU. These records can be 
transferred between devices without loss of 
structure. 

Equivalent to a logical record under NOS. 

Equivalent to a CtBER Record Manager S type 
record. 



Table - 

Set of repeated Items of data that is defined 
by OCCURS clause. 

Text-Word - . 

A chataeter or a sequence of contiguous char- 
acters in a COBOL library, source program or in 
pseudo-text. Including separators (except for 
spaced, and pseudo-text delinlters) and lit- 
erals, and excluding characters in connent 
lines. 

Transaction - I 

tinder GDCS, a series of update operations | 
Identified by a user-assigned transaction 
Identifier . 

In TAF, a correction or addition made during | 
transaction processing. 
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Transaction Processing - 

In TAT, taking an existing collection of Infor- 
mation called a data base, and correcting old 
data or adding new data to create an up-to-date 
data base. 



Trap 



In CID, a mechanism that detects the occurrence 
of a specified condition, suspends program 
execution at that point, and transfers control 
to CID. 



Update - 

Product running under operating system that 
allows a program library to be created in a 
special format which can be used by COPY state- 
ment processing. Described in Update reference 
manual . 

User-Defined Word - 

Word supplied by programmer to satisfy format 
of clause or statement. 1 through 30 charac- 
ters A through Z, through 9, or hyphen; 
hyphen cannot be first or last. Different 
types of words might have further restrictions 
for uniqueness, length, or characters. 



Variable-Occurrence Data Item - 

Data Item described with OCCURS clause that has 
a DEFENDING ON phrase. 



W Type Record - 

One of the eight record types supported by 
CYBER Record Manager. Such records appear in 
storage preceded by a system-supplied control 
word. The existence of the control word allows 
files with sequential organization to have both^' 
partition and section boundaries. 

Word-Address File - 

File described by ORGANIZATION IS WORD-ADDRESS 
clause. Characterized by records Identified by 
a key that indicates the relative word within 
mass storage file at which the record begins. 



Zero-Byte Terminator - 

12 bits of zero in the low order position of a 
word that marks the end of the line to be 
displayed at a terminal or printed on a line 
printer. The image of cards Input through 
the card reader or terminal also has such a 
terminator. 

Zero-Length PRU - 

A PRU that contains system Information, but no 
user data. Under CYBER Record Manager, a zero- 
length PRU of level 17, Is a partition boundary. 
Under NOS, a zero-length PRU defines EOF. 
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RESERVED WORDS 



ACCEPT 


CONTAINS 


EXTERfTAL 


ACCESS 


CONTINUE 


-FALSE ■- 


ACTUAL-I3nf 


CONTROL 


FD 


ADD 


CONTROLS 


FILE 


AUDSESS 


CtSSVERSION 


FTT.R-CONTROL 


ADVANCING 


copy' 


.FltBS 


AFTER 


COBR 


FILLER 


AT,T. 


CORRESPONDING 


FINAL 


AIJPHABET 


COUNT 


FIRST 


ALPHABETIC 


CURRENCY 


FOOTING 


ALPHANUMERIC 


DATA 


FOR 


AT.PH/VNUMERIC-EDrTED 


DATE 


FROM 


ALSO 


DATE-COMPILED 


GENERATE 


ALTER 


DATE-WRITTEN 


GIVING 


ALTERNATE 


DAY 


GO 


AND 


DAY-OF-WEEK 


GREATER 


ANY 


DE 


GROUP 


APOSTROPHE 


DEADLOCK 


HASHED-VALUE 


APPLY 


DEBUG-CONTENTS 


HASHING 


ARE 


DEBUG-ITEM 


HEADING 


AREA 


DEBUG-LINE 


HIGH-VALUE 


AREAS 


DEBUG-NAME 


HIGH-VALUES 


ASCENDING 


^^ff^]}|BRXCVipp£!TiEn^^- 


I-O 


ASSIGN 


DEBUG-s"uB-"i 


I-0-CONTROL 


AT 


DEBUG-SUB-2 


IDENTIFICATION 


AUTHOR 


DEBUG-SUB-3 


IF 


BEFORE 


DEBUGGING 


IN 


BEGINNING 


DECIMAL-POINT 


INDEX 


BITS 


DECLARATIVES 


INDEXED 


BIJUIK 


DELETE 


INDICATE 


BLOCK 


DELIMITED 


INITIAL 


BOOLEAN 


DELIMITER 


mmmtm 


BOOLEAN-AND 


DEPENDING 


INITIATE 


BOOLEAN-EXOR 


DESCENDING 


INPUT 


BOOLEAN-OR 


DESTINATION 


INPUT-OUTPUT 


BOTTOM 


DETAIL 


INSPECT 


BY 


I^H^B 


INSTALLATION 


CALL 


"disSle 


INTO 


CANCEL 


DISPLAY 


INVALID 


CD 


DIVIDE 


IS 


CF 


DIVISION 


JUST 


CH 


DOWN 


JUSTIFIED 


CHARACTER 


DUPLICATES 


KEY 


CHARACTERS 


DYNAMIC 


LABEL 


CLOCK-UNITS 


EGI 


LAST 


CLOSE 


ELSE 


LEADING 


COBOL 


EMI 


LEFT 


CODE 


ENABLE 


LENGTH 


CODE-SET 


END 


LESS 


COLLATING 


pn^iF, 


LIMIT 


COLUMN 


END-'OF-PAGE 


LIMITS 


COMMA 


sm^mmctm 


LINAGE 


cQwrn^sramffE- 


..ENb»SEA&Ca'' 


LINAGE-COUNTER 


COMMUNICATION 


'^iiiifi:-'' ■■ , 


LINE 


COMP 


ENTER 


LINE-COUNTER 


COMP-1 


ENVIRONMENT 


LINES 


COMP-2 


EOP 


LINKAGE 


COMP- 3 


EQUAL 


LOCK 


COMP-4 


■ISPiS't 


LOW-VALUE 


COMPUTATIONAL 


ERROR 


LOW-VALUES 


C0MPUTATI0KAI.-1 


ESI 


MEMORY 


COMPUTATlONAL-2 


EVERY 


MERGE 


COMPUTATIONAL- 3 


M&gmas, 


MESSAGE 


COMPUTATIONAL-4 


EXCEPTION 


MODE 


COMPUTE 


EXIT 


MODULES 


CONFIGURATION 


EXTEND 


MOVE 
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MULTIPLE 

MULTIPLY 

NATIVE 

NEGATIVE 

NEXT 

NO 

NOT 

NUMBER 

NUMERIC 

■jrobERi'c-HiiTEb, 

OBJECT-COMPUTER 

.«BJE<iT-?|!dGRAIt; 

OCCURS 

OF 

OFF 

OMITTED 

ON 

OPEN 

OPTIONAL 

OR 



ORGANIZATION 



OUTPUT 

OVERFLOW 

PAGE 

PAGE-COUNTER 

PERFORM 

PF 

PH 

PIC 

PICTURE 

PLUS 

POINTER 

POSITION 

POSITIVE 

PRINTING 

PROCEDURE 

PROCEDURES 

PROCEED 

PROGRAM 

PROGRAM- ID 

mrns 

QUEUE 

QUOTE 

QUOTES 

RANDOM 

RD 

READ 

IfgALMS' 

RECEIVE 

RECORD 

mxmum' 

RECORDS 

REDEFINES 

REEL 

REFERENCES 

RELATIVE 

RELEASE 

REMAINDER 

REMOVAL 

RENAMES 

REPLACING 

REPORT 

REPORTING 
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REPORTS 


SEQUENTIAL 


RERUN 


SET 


RESERVE 


SIGN 


RESET 


SIZE 


RETURN 


SORT 


REVERSED 


SORT-MERGE 


REWIND 


SOURCE 


REWRITE 


SOURCE-COMPUTER 


RF 


SPACE 


RH 


SPACES 


RIGHT 


SPECIAL-NAMES 


ROUNDED 


STANDARD 


RUN 


STANDARD-1 


SAME 


START 


SD 


STATUS 


SEARCH 


STOP 


SECONDARY-STORAGE 


STRING 


SECTION 


B^^PH^ 


SECURITY 


'sfirB-QUEtJE-i 


SEGMENT 


SUB-QUEUE-2 


SEGMENT-LIMIT 


SUB-QUEUE-3 


SELECT 


SUBTRACT 


SEND 


SUM 


SENTENCE 


SUPERVISOR 


SEPARATE 


SUPiPRESS 


SEQUENCE 


ajSPEBD 



SYMBOLIC 

SYNC 

SYNCHRONIZED 

TABLE 

TALLYING 

TAPE 

TERMINAL 

TERMINATE 

TEST 

TEXT 

THAN 



THROUGH 

THRU 

TIME 

TIMES 

TO 

TOP 

;TRACE— OK 

TRAILING 

TRUE, 

TYPE 

UNEQQAL 

UNIT' 

UNSTRING 



UNTIL 

UP 

UPON 

USAGE 

USE 

USING 

VALUE 

VALUES 

VARYING 

WHEN 

WITH 

WORD-ADDRESS 

WORDS 

WORKING-STORAGE 

WRITE 

ZERO 

ZEROES 

ZEROS 

+ 

/ 

> 
< 
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LANGUAGE SUMMARY 



A stnnmary of the language formats appears In this 
appendix. Detailed information for each format Is 
referenced by page number. The following elements 
are alphabetized in one list: 

Division structure, by division name 

Section structure, by section name 

Paragraph header and contents, by paragraph name 

FD entry 

SD entry 

RD entry 

CD entry 



Data description entry 

Beport group description entry 

Coimunlcation description entry 

Data Division clauses, by clause name 

Procedure Division statements, by statement name 

Condition type, by type 

Qualification 

Subscripting 

Indexing 

Page 



ACCEPT Statement Format 1 

ACCEPT identifier {FROM mnemonic-name] 
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ACCEPT Statement Format 2 



ACCEPT identifier FROM 



DATE 
DAY 



IIHE' 
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ACCEPT Statement Format 3 

ACCEPT cd-name MESSAGE COUNT 



14-8 



ADD Statement Format 1 

(llteral-1 \ T. llteral-2 



ADD 



I identifier 



-.}[: 



Identifier 



_2]..-I0 



identlfier-m [ROUNDED] 



L identlfler-n [ ROUNDED ]]... [; ON SIZE ERROR imperative-statement] 
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ADD Statement Format 2 

ADD /literal-1 W. llteral-2 J j", literal-3 I ... GIVING identifier-m [ ROUNDED ] 
^^ Udentifier-in. identifier-2/ |_, identlfier-3j 



5-6 



r, identifier-n [ ROUNDED ]] ... [; ON SIZE ERROR imperative 



-statement 1 



ADD Statement Format 3 

[ CORRESPONDING > ije^tlfier-l TO ldentlfier-2 [ ROUNDED ] [, identifler-3 [ROUNDED]...] 



ADD 



[; ON SIZE ERROR imperative-statement ] 
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ALTER thru CD Entry 
ALTER Statement 

ALTER procedure-name-1 TO [ PROCEED TO] procedure-name-2 
[, procedure-name-3 TO [ PROCEED TO ] procedure-name-4 J 



5-6 



AUTHOR PARAGRAPH of Identification Division 

AUTHOR . [ comnent -ent r y ] . . . 



2-1 



BLANK WHEN ZERO Clause 

BLANK WHEN ZERO 



4-14 



BLOCK CONTAINS Clause 



BLOCK CONTAINS [Integer-l TO] Integer-Z {^^^eRS } 



4-4 



CALL Statement 

CAU |^dentlfler\^ f usiNG data-name-1 [ , data-name-2 ] .. 
Uiteral ) •- 

[ ; ON OVERFLOW imperative-statement ] 
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CANCEL Statement 



CANCEL I ^ff^^^f-HF' 
(llteral-1 ) [_, 



identifier-2 
literal-2 



]■■• 
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CD Entry in Communication Section Format 1 

CD cd-name; FOR [INITIAL] INPUT 



[[; SYMBOLIC QUEUE IS data-rame-l] 
SYMBOLIC SUB-QUEUE-1 
SYMBOLIC SUB-QUEUE-2 
SYMBOLIC SUB-QUEUE-3 
MESSAGE DATE 
MESSAGE TIME 
SYMBOLIC SOURCE 
TEXT LENGTH 
END KEY 
STATUS KEY 
MESSAGE COUNT 
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IS 
IS 
IS 
IS 
JS 
IS 
IS 
IS 
IS 
IS 



data-name-2 ] 
data-name-3] 
data-name-4 ] 
data-name-5] 
data-name-5 ] 
data-nanie-7] 
data-name'-iB 1 
data-naiiie-9] 
data-name-10] 
data-name-1 1]] 



[data-name-1, data-name-2, ... data-name-ll ] 
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CD Entry thru Common-Storage 



CD Entry in Communication Section Format 2 

CD cd-name; FOR OUTPUT 

[; DESTINATIOM COUNT IS data-name-l ] 

[; TEXT LEHGTH IS data-name-2 ] 

[; STATUS KEY IS data-name-3J 



14-6 



; mSTINATION TABLE OCCURS tnteger-2 TIKES 

[; IMDEXED BY index-name-1 [ , lndex-naiBe-2 ] 
(; ERROR KEY IS data-name-4) 

[; SYMBOLIC DESTINATION IS data-iiame-5 ] . 



•]] 



Class Condition 

identifier IS [N^] {SJtIC } 
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CLOSE Statement Format 1 



CLOSE file-name-1 



fWITH NO REWIND 1 
FOR REMOVAL J 



( REEL y p 
I UNIT I [ 



file-name-2 



( REEH [WITH NO REWIND"] 

)TOt / [fo^ removal J 



WITH 



/NO REWIND ; 
1 LOCK 
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CLOSE Statement Format 2 

CLOSE relation-name [WITH LOCK ] 



16-2 



CODE Clause 

CODE literal 



6-3 



CODE-SET Clause 

CODE -SET IS alphabet-name 



4-5 



COLUMN NUMBER Clause 

COLUMN NUMBER IS integer 



6-6 



Common-Storage Section of Data Division 

COKM O M-STURACE bELilO K. 
idjttj-HcsiTfpLi.Jii-i'ntryl . .. 
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Communication thru COFY 
Communication Section of Data Division 

COMMUNICATION SECTION. 



[cotmunication-description-entry [record-description-entry] ... J 



U-1 



COMPUTE Statement Format 1 

COMPUTE identlfler-1 [ ROUNDED ] [, identifier-2 [ ROUNDED ]1.. 



( FROM I 
I Ei 1UA!.-< ) 



iiiLliiiitL. -i-F <-- 1 >n [; ON SIZE ERROR imperative-statement] 
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COMPUTE Statement Format 2 

COMPUTE {, lili-ntlflei-i} ... 



i FROM I 

I eijiia:.s j 



boo . en-eiiTTObt ion 



5-8 



Condition-Name Condition 

condition-name 



1-15 



Configuration Section of Environment Division 

CONFIGURATION SECTION . 
|SOURCE-COMPUTER paragrai>h.| 
|0BJECT-C0J@W5PR paragrai^.J 
ISPECIAl-NAlffiS paragraph, ] 



3-1 



CONTINUE Statement 

CONTINUE 



5^^ 



CONTROL Clause 

j CONTROL IS i (data-name-l [, data^name-2] ... 

\ CONTROLS ABE | ) FINM. '{^ data-name-l [,, data-name»^21 



o) 
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COPY Statement 

COPY text -name 



REPLAeiNG 



I VW } li teary-natje j 



/ ==pseudo-text-l=^ \ ( 5==p^gudo-£ext-2== j 

) identifier^! ( „„ I ideii;tifier-2 ( 

) llteral-1 i — | Ij-tecal-Z | 



f.-J 
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Data Description Entry Format ] 

■ data-name 



level-number 



ripiLLEr"*!! ^' REDEFINES data-name-2] [; IS EXTER MAL] 



t ; BLAMK WHEN ZERO ] 
(JUSTIFIED) 



b{ 



JUST 



7 



RIGHT 



] 



OCCURS Integer-l TIMES 

[{ dIscSg H^ is data-name-1 [. data-name-2] ...]... 
[ INDEXED BY Index-name- 1 [, lndex-name-2 ] ...] 
OCCURS integer-l TO tnteger-2 TIMES DEPENDING ON data-name-1 , 

[{iH^}^^ IS data-name-2 [. data-name-31 ...].., 
\ I" INDEXED BY index-name- 1 [, index-name-2 ] ...] 



; <pjg >IS character-string 

[; [ SIGN IS] { Filing } I separate character]] 
r rsracHRONizEDi f left "iI 

I; I SYNC ( I RIGHT IJ 



; [ USAGE IS ] 



COMPUTATIONAL 

COMP 

COMPUTATIONAL- 1 

COMP-1 

COMPUTATIONAL-.; 

COMP-2 

COMPUTATIONAL-4 

COMP-4 



DISPLAY 
INDEX 



[; VALUE IS literal]. 



Data Description Entry Format 2 

RTHRU 1 

THROU GH I 



data-name-3 



Data Description Entry Format 3 

88 condition-name: | ^|s^ Le} ^^l^^ral-l [^| 

nTHRU t 

THROUGH r ^"^"^^^ 



ffTHRU 



THROUGH 



\ literal-2 1 



[• 



-]] 



Data Description 

4-12 I 

4-14 
4-14 

4-14 



4-16 



4-23 



4-24 



4-25 



4-27 



4-23 



4-27 
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Data Division thru DISPLAY 
Data Division 

DATA DIVISION . 4-1 

[File Section] 

(Common-Storage Section] 

[Horklng-Storage Section] 

[Secondary-Storage Section] 

[Linkage Section] 

[Communication Section] 

[Report Section] 

DATA RECORDS Clause 

DATE-COMPILED Paragraph of Identification Division 

DATE -COMPILED . [ comment -entry ] ... 2-1 

DATE-WRITTEN Paragraph of Identification Division 

DATE -WRITTEN , [comment -entry] ... 2-1 

Declaratives Portion of Procedure Division 

DECLARATIVES . 5-1 

<sectlon-name SECTION [segment-number], declarative-sentence, 
[paragraph-name, [sentence] ...]...>..• 
END DECLARATIVES . 

DELETE Statement 

„„,__ (file-name RECORD [; INVALID KEY imperative-statement]) 5-9 

DISABLE Statement 

14-9 



DISABLE /ME [ TERMINAL ] \ ,.„,«„ „t™ ifirv /identifier-n 
DISABLE ^ ^^gg.^ I cd-name WITH SX ^ijteral-1 ] 

DISPLAY Statement 

225S;^{i<jentlfier-l } [i identlfler-a] ' '• [ PgOM mnemonic-name] [WITH NO ADVANCING i ^'^ 
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DIVIDE Statement Format 1 

(ldentifier-1 



DIVIDE 



Uitera 



fler-l| j.^j^Q ldentlfler-2 [ ROUNDED ] [, identifier-3 [ROUNDED]] 



DIVIDE thru EXIT 



5-11 



[ ; ON SIZE ERROR Imperative-statement ] 



DIVIDE Statement Format 2 

(identifier-l 



DIVIDE /identifier-l > ^^^ ^ldentifier-2^ ^^^^^ identifier-3 [ ROUNDED ] 
(literal-1 } (llteral-z J 

[, identlfier-4 [ ROUNDED ] "[ ... [; ON SIZE ERROR iiiq>erative-statement ] 



5-11 



DIVIDE Statement Format 3 



DIVIDE 



(identifier-l 
1 literal 



T'} s. 



(identifier- 2 
\literal-2 



I GIVING identifier-3 [ ROUNDED ] 



[, identifier-4 [ ROUNDED ] ] ... [; ON SIZE ERROR imperative-statement] 



DIVIDE Statement Format 4 



DIVIDE 



(identifier- 
\ literal- 



r"} 



INTO 



(identif 
\ literal 



T'] 



GIVING identifler-3 [ROUNDED] 



REMAINDER identifier-4 [; ON SIZE ERROR imperative-statement] 



5-11 



5-11 



DIVIDE Statement Format 5 

DIVIDE Jidentifier-n |identlf ler-2| gj-yj-^jg identifier-3 [ ROUNDED ] 
lliteral-l ( — >literal-2 i 

REMAINDER identifier-4 [; ON SIZE ERROR imperative-statement] 



5-12 



ENABLE Statement 



™.„,„ [INPUT [TER MINAL H , ,„„„ „™ /identifler-U 

™^"i OUTPUT / '^d-nameWITHKEI^iiteral-l f 



14-9 



ENTER Statement 



ENTER [language-name] routine-name 



USJSG 



(dat, 
fil 



ta-narae-1 
name-1 
prof.edure-name-1 
literai-1 



, data-name-2 
, file-name-2 
, procedure-name-2 
, litecal-2 



15-3 



Environment Division 

ENVIRONMENT DIVISION . 
[Configuration Section] 
[Input -Output Section] 



3-1 



EXIT Statement 

EXIT [PROGRAM] . 



5-12 



60497100 J 
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EXTERNAL thru FD Entry 
EXTERNAL Clause 

I IS EXTERNAL 

FD Entry in File Section 

FD file-name 



1^; BLOCK CONTAINS [integer-1 TO] integer-2 [{ii^ERs}]] 



[; CODE-SET IS alphabet -name ] 
RECORD IS 



[= ^^'^^ { HHs^ ARe} data-name-l [, data-name-2] ..,] 



[; IS EXTERN AL] 
, ,„„, ,' RECORDS ARE ) I STANDARD 



I RECORDS ARE ) ( STANDARD ) 
) RECORD IS / ) OMITTED / 

I ; VALUE OF implementor-name-1 IS {iite~"i"i~^ } 

, lmplementor-name-2 IS S , . ,. ,_9 f I*'" 

; LINAGE IS i^ata-name-l ) ^^^^^ f ^^^ FOOTING AT i data-name-2 H 
(integer-1 I L (integer-2 J J 



[• 



.. LINES AT TOP 



{data -name -3 
integer-3 



}] [."-B-ion- {ss:-r}] 



; RECORD CONTAINS [integer-l TO] 

intGger-2 CIIARjVCTERS [DKI'EN DJNC: OS data-name] 
; RECO RD IS VARYIKG IN SIZE [[FROM iiuegi.T-lj 

[TO iiitegcr-:;! CHARiVCTERs] I DEPENDIM: O.N dat.i-name , 

; RLXCmDlNGMODK iS {ggg^}] 

r (REPORT IS ) , , -,,1 

I ' 1 REPORTS ARE ( '-^Po'^t-name-l [, report-name-2] ...J 



4-6 

4-3 
4-4 

4-5 
4-6 

4-6 
4-6 



4-7 



4-8 



[record-description-entry] ... 



4-U 



6-2 



4-U 



E-8 
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File-Control Entry Format 1 (Sequential File Organization) 

SELECT [ OPTIONAL ] file-name 

ASSIGN TO implementor-name-l [, implement or-name-2] 
I; ORGANIZATION IS SEQUENTIAL ] 
[; ACCESS MODE IS SEQUENTIAL ] 
t; FILE STATUS IS data-name] 

RESERVE integer 

[; USE literal]. 



[' 



[AREA "I "I 

[areas JJ 



File-Control 

3-17 
3-13 
3-15 
3-10 
3-13 
3-17 

3-17 



File-Control Entry Format 2 (Relative File Organization) 

select file-name 

ASSIGN TO implementor-name-l [, implementor-name-2] ... 

; ORGANIZATION IS RELATIVE 

r / SEQUENTIAL [, RELATIVE KEY IS data-name ] | "I 

1^; access MODE IS j |^g^|. RELATIVE KEY IS data-name [J 



[; FILE STATUS IS data-name] 

r FAREA ll 

[; MSERVE integer [^AgJJ 



[; USE literal]. 



3-17 
3-13 
3-15 
3-10 

3-13 
3-17 

3-17 



File-Control Entry Format 3 (Indexed File Organization) 

SELECT file-name 

ASSIGN TO implementor-name-l [, implementor-name-2] 
; ORGANIZATION IS INDEXED 
; RECORD KEY IS data-name 



/ SEQUENTIAL 
; ACCESS MODE IS \ RANDOM 
I DYNAMIC 

-; ALTF.KNA K RF.Y)^,r ) KKY IS dal a-niimp-1 [WlTU DUl'Ll GATES [ ASCENDING I T 



OMITTED I 
7 



WHEN data-name-2 CONTAINS CHi\KACTER FROM 



n OMIT 
IJUSE 

[ omitted WHEN KEY IS I g^ }] 

[; FILE STATUS IS data-name] 
[; USE literal]. 



literal 



3-17 
3-13 
3-15 
3-16 
3-10 

3-11 



3-13 
3-17 



60497100 J 



E-9 



Fil«-Control 

File-Control Entry Format 4 (Direct File Organization) 

SELECT file-name 

ASSIGM TO implementor-name-1 [, implementor-naiiie-2] 
; ORGANIZAT ION IS DIRECT 

; BLOCK COUNT IS il"'^8er \ 
(data-name ) 

; RECORD KEY IS data-narao 

r /SEQUENTIAL i ■ 

; ACCESS MODE IS ' RANDOM ' 

) DYNAMIC I 



; ALTERNATE RECORD KEY 13 data-namc-l [WJTH DUPLICATES [ ASCENDING ]] 
I I USE^™° [ WHES data-name-2 CONTAINS CHARACTER FROM literal] 

[om itted whek key is J-^^^i^n 

L I /BROS Ij 



f; FILE STATUS IS data-name] 
[; USE literal]. 



3-17 
3-13 
3-15 
3-13 

3-16 
3-10 

3-11 



3-13 
3-17 



File-Control Entry Format 5 (Actual-Key File Organization) 

SELECT fllc-narae 

ASSIGN' TO implementur-namc-l [, implemontor-namt— 2 J . 
; ORGANIZATION IS ACTUAL-KF.Y 
; RECORD KEY IS data-name 



; ACCESS MOUJ-: 



i SEqUEMlAL I "1 
J S .' R AA-POM I 

SfNAMIC I J 



I DYNAM1 

; ALTERKATE ItECORD KEY IS daLa-namt-l [wiTH DLPJ.ICAT KS [ASCtNDlNGj] 

[1 OMITTED) 1 

■j jj^ } WHEN data-natie-2 CONTAINS CHARi\CTER FROM literal 



[omitted when key IS -'fl^-'fl 



I; FILE STATUS IS data-name] 
f; USE literal ]. 



3-17 
3-13 
3-15 
3-16 

3-10 
3-11 



3-13 

3-17 



E-10 
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File-Control thru GROUP INDICATE 
File-Control Entry Format 6 (Word-Address File Organization) 

SELECT fiie-namt" 



; ORGAKIXATION IS WORD-ADDRESS 
; WORD-ADDRESS KEY TS data-name 



; SEQUENTIAL | 

; ACCESS MODE IS .' RANDOM j- 

i DYNAMIC ) 



I; USE ULeral], 



File Section of Data Division 

FILE SECTION . 
[FD entry] ... 
[SD entry] ... 

GENERATE Statement 

^^ I data-name | 
(report-name ) 



GO TO Statement Format 2 

GO TO procedure-name-1 [, procedure-name-2 ] ... , procedure-name-n DEPENDING ON Identifier 

GROUP INDICATE Clause 

GROUP INDICATE 



3-17 



ASSIGN TO implementor-name-1 [, implementor-name-2] ... 3-13 



3-15 



3-10 



[; FILE STATUS IS data-name] ^"^^ 

[Farea ll 
; RESERVE integer [^^gj] 



3-17 



3-17 



FILE-CONTROL Paragraph in Input-Output Section 

FILE -CONTROL. [file-control-entry] ... ^"^ 



4-1 



6-11 



GO TO Statement Format 1 

GO TO [procedure-name-1] ^"^^ 



5-13 



60497100 J ^"^^ 



Identification thru INSPECT 
Identification Division 

IBENTIF ICATION PI VIS ION . 
PROGIUM-ID paragraph 
[&DTHOR paragraph] 
[INSTALLATION paragraph] 
[DATE-WRITTEN paragraph] 
[DATE-COMPILED paragraph] 
[SECURITY paragraph] 



2-1 



IF Statement 



IF condition; 



( [, statement-1 ] ... I 
( NEXT SENTENCE / 



; ELSE [statement-2] 
; ELSE NEXT SENTENCE 



t; END-IF J 



I 



3-13 



indexing 



( data -name 

' condition-name 



' (lit 



lndex-name-1 [{+} lltera 
eral-1 



1-2] y 



i-2i 



i index-name-2 [{+} llteral-4] 
' Ulteral-3 



>[• 



j index-name-3 [{+} llteral-i 
I llteral-5 



-}] ...] 



INITIALIZE Statement 

INITIALIZE identifier- 1 i, identlf ler-2] 

alphab?:tlc \ 

replacing 



5-13 



ALPHANU M ERIC 

ALPTlAN'UMr.R 1 C-ED ITED 
HUMERIC-EUTl'ED " 
BOOLEAN 



;. DATA BY 



( IDENTIFIER- 3 | 
Uiterjl I 



INITIATE Statement 

INITIATE report-name-1 [, report-name-2] 



6-12 



Input-Output Section Header in Environment Division 

INPUT-OUTPUT SECTION . 
^ILE-CONTROL paragraph^ 
[I-O-CONTR0L paragraph]: 



3-5 



INSPECT Statement Format 1 

INSPECT identlf ler-l TALLYING 



, ideatif 



5-16 



'""^1' {'Sgfl^^"-""'""-''l [{i^(-'-(SSSL-.}]{ 



E-12 
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INSPECT thru l-O CONTROL 



INSPECT Statement Format 2 

INSPECT identlf ler-1 EEPLACING 



' characters BY I M^^'^^^:' J n|5Z25£\ INITIAL | ^""^^'^ A] 
\identifier-6f M AFTER j Udentifler-7/ J 

(literal-3 i niteral-4 ^ H BEFORE ^ tllteral-5 1 I 

5] ^Udentlfler-6r[1 AFTER / I«™AL ^ i^^^tif ier-7 [ J 



ALL \ i ill 

LEADING } {, \identifier-5| 

FIRST ) ( 



5-16 



INSPECT Statement Format 3 

IN SPECT ldentifier-1 TALLYING 

( (/ ALL ) (lxteral-1 

', ldentlfier-2 FOR I, ;) LEADING f |identifler-3 
( ( CHARACTERS 



r BEFORE! 

I AFfER ~J REPLACING 



[{i^) ""- 



/lltera 
(Identlfi 



1-2 n I 

fier-4/J ( 



I literal-4 



(literal-5 



1 ( ALL 
» I LEADING 
' I FIRST 



» [" ( BEFORE ) 
/ I ( AFTER f 

\ „ lllteral-4 \ H BEFORE ) ™™t4t /llteral-5 )' 
, >ldentifier-5/ — \identlfier-6/ H AFTER ( '^^^^^'^ tidentifier-7/ 



CHARACTERS BY ^ """?"." A I { ""'"T ?■ INITIAL ^tj'-'=""i/ A\ 
Udentifxer-6/ I ( AFTER f \identif ier-7 j 

/literal-3 



INSTALLATION Paragraph of Identification Division 

INSTALLATION , [conment -entry] ... 



5-16 



1 
I 



2-1 



i-O CONTROL Paragraph of Input-Output Section 

I-O-CONTROL. 



[ ' APPLY input-output-technjquo OK file-name-! I, f ile-nanie-2J ...] 
; MULTIPLE FILE TAPE CONTAINS J '^'-'■e-n«me-l I [POSITION integer-1]' 

[/flle-naine-2 ) r„„„.,™.,.„,, «,1 

' ipseudo-file-name-ar [POSITION lnteger-2lj ... 



, SAME 



; RERUN 



/ RECORD 

{ SORT 

I SORT -MERGE 



AREA FOR file-name-1 {, flle-naiiie-2} 



foN /file-name-1 l] 

I — (Implementor-nameM 



EVERY 



[ END OF] 1^1 i I OF file-name-2 , 



Unteger-1 RECORDS 
cond 1 1 1 on-name 



3-18 

3-18 
3-18 



3-21 



3-19 



60497100 J 
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JUSTIFIED thru MOVE 
JUSTIFIED Clause 

I JUST f 



LABEL RECORDS Clause 

TABRI ( RECORDS ABE) /STANDARD \ 
\ RECORD IS / 1 OMITTED / 

[- ^data~iiame— 1 1 
; VALUE OF Implementor-name-l IS "iiiteral-l f 

[, lmplementor-name-2 IS {iiterla-2 fj ...J 



LINAGE IS 

I Integer- 



'^-U LINES r WITH FOOTING AT ( <lata-name-2 H 
■1 ) L (iiiteger-2 )J 



[. "^s AT TOP {jr— -r'}] [. ^^^' ^' ^snoM {tiii"^-'}] 



LINE NUMBER Clause 

|in 

) PLUS lnteger-2 



GIVING file-name-5 



B THRU ) 
THROUGH I ' 



MOVE Statement Format 1 

"°^ {lltararr~^} "^ ldentlfler-2 [. ldentifier-3] 



MOVE 



CORK 



-!• identifier-1 TO identifler-2 I, identlEler-SJ 



4-6 



LINAGE Clause 

( data-name- 1 1 , „,„ I ,.„™, r^nnT-r«n it 4 data-name-2 I I 4-7 



LINE NUMBER IS i i^'i^^f !:L^°",^^ ^^^ } '"' 



Linkage Section of Data Division 

LINKAGE SECTION . 15-1 

[data description entry] ... 



MERGE Statement 

MERGE file-name-1 ON { ASCENDING ( ^^ data-name-1 [, data-name-2] ... 

["M aSS^ } ^-^ data-nan.e-3 [. data-name-4] ...] ... 
[COLLATING SEQUENCE IS alphabet -name] 
USING file-naae-2, file-name-3 [, fire-name-4] ... 

OUTPUT PROCEDURE IS sectlon-name-1 K=^„^„ J section-name-.2 



5-18 



MOVE Statement Format 2 

[CORRESPONDING) ., .,. , „„ . , .,, ^ , .^^.c, i i 5-20 



E-14 60497100 J 



MULTIPLY thru OPEN 
MULTIPLY Statement Format 1 



MnLTIPLY J^^entlfler-l| gy ldentifier-2 [ ROUNDED ] [, ldentifier-3 [ ROUNDED ]] ... 
[ ; ON SIZE ERROR imperative-statement ] 

MULTIPLY Statement Format 2 

MULTIPLY |identifier-n ^^ (identif ier-2| ^^^^^ identifier-3 [ ROUNDED ] 
lliteral-1 ) — lliteral-2 ) 

[, identifier-4 [ ROUNDED ]] ... [; ON SIZE ERROR imperative-statement] 



( lnteger-1 ) 6-7 

NEXT GROUP IS { PLUS integer-2 ' 



NEXT GROUP Clause 

{ NEXT PAGE 
OBJECT-COMPUTER Paragraph of Configuration Section 



OBJECT-COMPUTER. 



computer-name 
,. . [ , PROGRAM COLLATING SEQUENCE IS alphabet-name ] 
, [, SEGMENT -LIMIT IS segment-niimber] 



\ KEY IS data-name-2 [, data-name-3] ... 



["( ASCENDING 
I I DESCENDING 

[ INDEXED BY index-name- 1 [, index-name-2 ] ..,] 



5-21 



5-21 



3-1 



4-15 



OCCURS Clause Format 1 

OCCURS integer-1 TIMES { ^SCENDING } *^^ ''"^ data-name-1 [, data-name-2] ...1 
[ INDEXED BY index-name-1 [ , index-name-2 ] . . . ] 



OCCURS Clause Format 2 

OCCURS integer-1 TO integer-2 TIMES DEPENDING ON data-name-1 4-15 



OPEN Statement Format 1 

T>™,.„x., , r REVERSED 1 f r j i n fREVERSED 11 5-21 

INPUT fxle-mme-1 [wiTH NO REWIND J [' ^^^^-^^^'^ [wiTH NO REWIND 

OPEN / OUTPUT flle-name-3 [WITH NO REWIND ] [, flle-name-4 [WITH NO REWIND ]] 
I-O file-name-5 [, file-name-6] ... 
EXTEND file-name-7 [, file-name-8] ... 

OPEN Statement Format 2 

OPEN I INPUT relation-name J 16-2 
I 1-0 relation-name f ... 



60497100 K E-15 



PAGE thru PROCEDURE 
PAGE Clause 

£^ ESSs'L ] i«^8«'^-l [SSs] t . HEADING inte8er-2] 
[, FIRST DETAIL integer-S] [, LAST DETAIL lnteger-4] 
[, FOOTING integer-5] 



6-4 



PERFORM Statement Format 1 

PERFORM procedure-name-l 



L 



n ^^UGH f ^^°*^^"^"'^^~°^°'^~^1 '' ^'"P^"'^^'^"'"^'"^'"'^"'^ ' E5 



END-PERFOBM] 



5-24 



PERFORM Statement Format 2 

PERFOroi rprocedure-mme-l [| ^jjgg J procedure-name-2J j { inteJeS-l'^'M 22S§. 
[; imperative-statement ; END-PERFORM] 



5-24 



PERFORM Statement Format 3 



[r i THRU ^ T n r I HF.FQHI*' \ "1 

procedure-name-l I TROUGH f Procedure-naine-2 ; WITH TgST ^^Jjgjpf 



I procedure-naine-2l I T; KITH T£ST {-f*'^°'*^ ' 
UNTIL condition-l li imperative-statement ; END-PERFORM J 



5-24 



PERFORM Statement Format 4 

PERFORM procedure-name-l N THROU GH f P'^°"dure-name-2 I : WITH 



TEST 



i BEFORE I 
(AFTER f 



] 



AFTER 



ridentlfier-4 
( index-name 



_, V (identifier-5 ) , fft f,\ 

' , } FROM { index-name-4 } BY {^^f" i?"^" } UNTIL condition-2 

'-^' Uiteral-3 ) " U^teral-4 / 



[; imperative-statement ; END-PERFORM ] 



] 



5-24 



PICTURE Clause 



( PICTURE 
( PIC 



> IS character-string 



4-16 



PROCEDURE Division Format 1 

PROCEDURE DIVISION [ USING data-name- 1 [, data-name-2] ...] . 
[ DECLARATIVES . 
< section-name SECTION fsegment-number]. declarative-sentence. 

[paragraph-name. [sentence] •••I ••• (••• 
END DECLARATIVES .] 
J section-name SECTION [segment-number ] . 

[paragraph-name. [sentence] •••'] ••• /••• 



5-1 



E-16 
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Procedure Division Format 2 

PROCEDURE DIVISION [ USING data-name-1 [ , data-name-2 ] . • . ] 
j paragraph-name . [sentence] ••'] ••• 

PURGE Statement 

PUKUI! cd-ndmc 



Procedure thru Qualification 



5-1 



14-10 



PROGRAM-ID Paragraph of Identification Division 

PROGRAM- ID. program-name. 



2-1 



Qualification Format 1 



( data-name-l \ 
\ condition-name / 



{{of Mata-name-2 

[(IN I file-name 1 
Lt OF J cd-name J 



[{§} 



IN \ file-name' 
cd-name 



1-19 



Qualification Format 2 

paragraph -name I < -^ > section-name 



] 



1-19 



Qualification Format 3 

text -name I •! -^ > library-name I 



1-19 



Qualification Format 4 

LINAGE-COUNTER Fi ^ I file-name 1 



1-19 



Qualification Format 5 

} [{^} report-name J 



( PAGE-COUNTER 
\ LINE-COUNTER 



1-19 



Qualification Format 6 

ri-Sldata-name-4l ... N ^ | report-name J 

[{o|}"P°""'^"'^] 



data -name -3 



1-19 



60497100 J 



E-i7 



RD Entry thru RECORDING MODE 
RD Entry in Report Section 

RD report -name , 6-3 

[; CODE literal] 



( CONTROL IS ^ < data-name-1 [, data-name-2 ] ... >1 

'{ controls ARE( i FINAL [, data-name-l [, data-name-2] ...]/J 



i MFSSACF 1 
RECEIVE cd-name I ^-gQ^-g;]^ > INTO ldentifier-1 [ ; NO DATA Imperative-statement] 



6-4 



•' ^ [iSSs'L]^"'^^-^ [iiSs] f> SASMi integer-2] 
[, FIRST DETAIL lnteger-3] [, LAST DETAIL integer-4] 
[, FOOTING integer-5] 
{report-group-description entry} ... °~ 

READ Statement Format 1 

READ file-name [ NEXT ] RECORD [ INTO identifier] [; AT END imperative-statement] 5-26 

READ Statement Format 2 

READ file-name RECORD [ INTO identifier] [; ^Y IS data-name] 5-27 

[ ; INVALID KEY imperative-statement ] 

READ Statement Format 3 

READ relation-nnrac [ NEXT ] RECOKD [j AT END imperative—statement] 16-2 

READ Statement Format 4 

READ relation-name RECORD [; KEY IS data-name] I; INVALID KEY imperaL i ve-statement 1 16-2 



RECEIVE Statement 

• MESSAGE 1 „,„„ ., _ . . , 14-10 



RECORD Clause Format 1 

RrO:KJ CON'IAINS lintuger-i TO] lntcger-2 CHAKACTKRS [DEPENDING ON data-namej 4-8 

RECORD Clause Format 2 

BECORD TS VARYING TN SIZE [[FROM integcr-l i i_rO lntcgor-2J CHARACIERS] 4-8 

I DEPENDIMG OK data-name] 

RECORDING MODE Clause 

ggCORDTNGMODEIsJfii^i. 



E-18 60497160 =K 



REDEFINES Clause 

REDEFINES data-name-2 



REDEFINES thru REPORT 



4-21 



Reference Modification 

data-name (leftiiiosc-charncter-posl bion : ' „..,. !■ ) 



1-21 



Relation Condition Format 1 



^Identlfier-l 

< llteral-1 

(arithmetic-express 



IS [ NOT ] GREATER THAN^ 

IS [ NOT ] > 

IS [NOT] LESS THAN 



) I IS [NOT] _<_ I ( 

> / IS [ NOT ] EQUAL TO \ { 

lon-1 ) ) IS [NOT] = I ( 



IS UNEQUAL TO 

EQUALS 

EXCEEDS 



identif ier-2 

llteral-2 

arithmetic-expression 



J 



1-15 



Relation Condition Format 2 



boolean express 



(IS [NOT] EQUAL TO ) 
IS [NOT] ^ ( 

"■■ " \ IS UNEQUAL TO i 

I EQUALS I 



boolean express j on-2 



1-15 



RELEASE Statement 

RELEASE record -name [PROM identifier] 



7-6 



RENAMES Clause 

RENAMES data-name-2 [{SjGh} 



data-name-3 



4-23 



REPLACE Statement Format 1 

REPLACE {, -»pseudo-text-l»= BY -=pseado-text-2==} 



9-4 



REPLACE Statement Format 2 

REPLACE OFF 



9-4 



REPORT Clause 

: REPORT IS 



/REPORT IS » , , 

) REPORTS ABE f report-name-l [, report -naae-2] ... 



6-2 



60497100 J 



E-19 



Report Group 

Report Group Description Entry Format 1 



01 [data-name-1] 



( integer-l [ON NEXT PAGE ] 



[,„«»»-- {S's:ri 



)] 



i integer- 1 
; NEXT GROUP IS ) PLUS integer 
j NEXT PAGE 



; TYPE IS 



-i 



REPORT HEADING 






( PAGE HEADING 
■\PH 



( 



( CONTROL HEADING ) / data-name-1 \ 
\CT f ) FINAL / 

i DETAIL ) 

\m i 

( CONTROL FOOTING ) i 



data-naiae-2 1 
FINAL I 



PAGE FOOTING 



/PA( 
\PF 



( REPORT FOOTING 



6-5 
6-7 

6-7 
6-10 



[; [ USAGE IS ] DISPLAY ] . 



6-U 



Report Group Description Entry Format 2 

level-number [data-name] 

r rlnteger-1 [ON NEXT PAGE] n 
[; LINE NUMBER IS { py^^^^egir-a \\ 



[' 



[USAGE IS] DISPLAY 



] 



6-6 
6-7 

6-11 



E-20 



66497100 J 



Report Group thru REWRITE 



Report Group Description Entry Format 3 

level-number [data-name] 

[ : BLAMK WHEN ZERO ] 

[; COLUMN NUKBER IS Integer] 

[j GROOT INDICATE] 



[ijSasaisism 



[■ 



J JHST f 



LINE NUMBER IS 



Integer-l [ON NEXT PAGE ] 
PLUS integer-2 



}] 



( PICTURE \ „ ^ ^ , 

; injr f ^ character-String 



SOURCE IS identifier 



VALUE IS literal 



|STM identifier-! [, identifier-2] . . . (" UPON data-name-1 '[ . data-name-2] ...]/ 



RESET ON ^^'"t"""" "}] 



{data-name-3 ^ 
FINAL 



[; [USAGE IS] DISPLAY 1 



6-6 
6-6 
6-6 
6-7 

4-14 

6-7 

4-16 

6-8 

6-11 

6-9 

6-11 



Report Section of Data Division 

REPMIT SECTION . 

{RD entry} 

[report group description entry] ... 



6-2 



RETURN Statement 

PTURN file-name RECORD [INTO identifier] ; AT END imperative-statement 



7-6 



REWRITE Statement 

REWRITE record-name [ FROM Identifier] [; INVALID KEY imperative-statement] 



5-28 
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SD Entry thru SEND 
SD Entry of File Section 

SD file -name 



/CONTAINS [integer-1 TO] integer-2 CHARACTERS^ 

I IS VARYING IN SIZE [[FROM integer-3] 
; RKCORB / 

I [TO lnteger-4] CHARACTERS] 

i^ [ DEPENDING ON data-name-1 ] 

[ ■' 2ATA {iHls'L} ^ata-na.e-1 [. data-nan.e-2 ] ...] 
[record-description-entry] ... 



7-2 



4-8 



4-6 



SEARCH Statement Format 1 



SEARCH ldentifler-1 VARYING 



[" varying I ^ 



ndex-name- 



^ 11 [; AT END imperative-statement-1] 
dentifier-2 (J ^' 



„.,„« .. . 1 (lmperatlve-statement-2 ) f. 
; WHE£ condition-1 ^^^^ SENTENCE / L' 



WHEN condltion-2 



I imperative-statement-3 
( NEXT SENTENCE 



}] 



[; EXD-SEARCH j 

SEARCH Statement Format 2 

SEARCH ALL ldentlfier-1 [; AT END imperative-statement-1] 



; WHEN 



( EQUALS ) (identifier-3 

i data-name-1 ) IS' EQUAL TO > / literal-2 

\ IS = ) ( arithmetlc-expression-1 



, condition-name-1 



5-29 



5-30 



EijUALS 
data-name-2 ^ IS EQUAL TO 
AND ■( (is 

. condltion-name-2 



identif ier-4 

llteral-3 

arithmetic-expression-2 



( imperative-statement-2 \ . i..-»i>,.ii, 

{ NEXT SENTENCE | I ; Mt^MRiJlJ 

Secondary-Storage Section of Data Division 

SECONDARY-STORAGE SB CI ION , 
[data description entry] ... 



4-3 



SECURITY Paragraph of Identification Division 

SECURITY . [comment-entry] ... 



2-1 



SEND Statement Format 1 

SEKI); c(j-na«« flQM identlfier-1 



14^11 



E-22 
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SEND Statement Format 2 

{WITH identifler-2 
WITH ESI 
WITH EMI 
WITH |GI 



(/identifler-3) [LINE 1] 
i^^^XM^VANCim Unteger } UlNEsJ} 



( AFTER /' 



I { ( mnemonic -name i 
) PAGE f 



I ^ 



SEND thru Sign 



14-11 



SET Statement Format 1 



SET 



j index-name-1 [ , index-name-2 ] 
\identifier-l [, identifier-2] 



{index-name-3 
identifier-3 
integer-1 



5-31 



SET Statement Format 2 

SET index-name-4 [, lndex-name-5 ] 



/UP BY 1 (identifier-4) 
'■ \ DOWN BY f Unteger-2 / 



5-32 



SET Statement Format 3 



SET 



( SORT ) 

) MERGE ( 

\ SORT-MERG K ( 

/ PROGRAM " j 



COLLATING SEQUENCE 



TO alphabet.-n(ime 



CODE-SET FOR 



I fiJe-Diime-l [, flie-name-2] 
) ALL FILES 



5-32 



SET Statement Format 4 



SET <' nnemonii — nane-1 [, niiicTnonic-naine-2 i 



TO i^ • I. 

I OFF { I 



5-33 



SET Statement Format 5 



SET condition-name TO TRUE 



5-33 



SIGN Clause 



[ SIGN IS] I Filing } [ separate character] 



4-23 



Sign Condition 



arithmetic-expression IS [ NOT ] 7 NEGATIVE 

ZERO 



/ positive \ 
\ negative ! 

( ZERO ) 



1-17 
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SORT thru SOURCE-COMPUTER 

SORT Statement 

7-2 
SORT file-name-1 0N|^||||2||ijKEY data-name-1 [, data-name-2] ... 

[WITH DUPLICATES IN ORDER] 
[COLLATING SEQUENCE IS alphabet -name] 

i INPUT PROCEDURE IS section-name-1 [I THROUGH j'Section-name-aJ | 
USING file-iiame-2 [, f ile-naiiie-3 ] ... ) 

! OUTPUT PROCEDURE IS section-name-3 f -| j^jjoyen | sectlon-iiame-4j | 
GIVING file-naine-4 ) 



SOURCE Clause 

SOURCE IS Identifier ^"* 



SOURCE-COMPUTER Paragraph of Configuration Section 

SOURCE -COMPUTER. Mlcomputer-iiame 1. 
— m , WITH DEBUGGING MODE ] J: 



g^24 604#7iSC J 



SPECIAL-NAMES thru START 



SPECIAL-NAMES Paragraph of Configuration Section 



SPECIAL-NAMES. 



[, Ifflplementor-name IS mnemonic-name] •.. 



STANDARD-1 



NATIVE 
CDC-64 
ASCII-64 
EBCDIC 



, ALPHABF:T alphabet-name IS^ 



UNI 



Iiteral-1 



, literal-5 



"(THRU ^ 
\ THROUGH ( 



literal-2 



ALSO Iiteral-3 [, ALSO llteraI-4] 



"(THRU i,. 



1 THROUGH f 



llteral-6 



ALSO llteral-7 [, ALSO Ilteral-8] 



[, CURRENCY SIOI IS literal] 
[ , DECIMAL-POINT IS COMMA ] 



{Ss'LeI smms] 



[ 

, Siai CONTROL IS i ^\]\^q } [ SEPARATE CHARACTER] 



I, SUB-SCHEMA IS subschema-name] 



IS mnemonic-name 



SWITCH-n 



rON STATUS IS condition-name-1 "l 
[ OFF STATUS IS conditlon-name-2j 

W STATUS IS condltion-name-1 [, OFF STATUS IS conditlon-name-2] 

OFF STATUS IS conditlon-name-2 [, ON STATUS IS condttion-name-1 J 



3-2 
3-2 



3-3 



3-4 
3-4 
3-3 

3-5 

16-1 
3-5 



START Statement Format 1 



START file-name 



IS EQUAL TO 



KEY 




IS GREATER THAN 
IS _>_ 

IS NOT LES S THAN 
.IS NOT < 

[; INVALID KEY imperative-statement] 



data-name 



5-33 
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START thru SUBTRACT 
START Statement Format 2 



START relation-name 



[ ; INVALID KEY Imperative-statement ] 



ilS EQUAL TO 
EQUALS 
IS^ 
E XCEEDS , J 

IS -GJlATER THAN ;> ^ata-name 
IS _>_ 
IS NOT LESS THAN 
IS SOT C 



16-3 



STOP Statement 

„„„„ (RUN \ 



5-34 



STRING Statement 



STRING ^^f^""^^f"H f" "*""^f" ^1 DELIMITED BY juteral 
■= Ulteral-1 ) L> llteral-2 J ••• — ' — ^— ) SIZE 



iidentlfier-3 
3 



ridentifier-4t T, identlfler-5-| ... DELIMITED BY ) literal-6 } 
' (literal-4 ) [_, llteral-5 J ■ — '•"^ ) SIZE I 

INTO identif ier-7 [WITH POINTER identif ier-8] [; ON OVERFLOW imperative-statement j 



5-35 



Subscripting 



(data-name I (gubscript-l f. subscript-2 [, subscrlpt-3] .. 
< condition-name ; "^ l' 



L, subscript-n] ] ) 



1-20 



SUBTRACT Statement Format 1 



SUBTRACT 



Qiteral- 
lldentifier 



^ il F' f^^^'^fi"^ J... FROM identif ier-m [ROUNDED] 
er-1 ; L. Identif ier-2J ■■■— ' ■ ~ 



[, identifier-n [ ROUNDED ]]... [; ON SIZE ERROR imperative-statement] 



5-36 



SUBTRACT Statement Format 2 



SUBTRACT |H^"!fL'^ A\']a'^1^1:^ , 
— — - - ■ • jidentifier-1 1 L » identif ier-2 



]... 



FROM 



/literal-m 

i Identif ier-mi 



GIVING identifier-n [ RQMPED ] [, identif ler-o [ |0fflPEP ]1... 
[i ^^ SjZJE jRROR lisperatlve-stattwant) 

SUBTRACT Stqtemertt Format 3 

SUBTRACT {1^^ ^^°^^ — } identif ier-1 FROM identif J.er-2 [ ROUNDED ] 

•ifl^Mt^gi%|i^?i3-:.. ^^^il ^."4i:,i [; ON gI_2E ERROR imperatlve-statgmept] 



5-36 



5-37 



S»2& 



mk9i%m % 



SUM thru UNSTRING 
SUM Clause 

isUM ldentlfler-1 [, identlfler-2] ... [ UPON data-name-1 [, data-name-21 ..,] V ... 6-9 

SUPPRESS Statement 

SPPPRESS PRINTING 6-12 

SYNCHRONIZED Clause 

I SYNCHRONIZED \ f I^FT 1 *-24 



I SYNC 



/ I RIGHT I 



TERMINATE Statement 

TERMINATE report-name-1 [, report -naiiie-2] ... 6-12 

TYPE Clause 

( REPORT HEADING ) \ 6-10 

( PAGE HEADING ) 

\PH ; 

( CONTROL HEADINC 

\OT f ( FINAL 

( DETAIL \ 

\m f 

( CONTROL FOOTING ) <i 

icF ; tl 

( PAGE FOOTING ) 
III f 

J REPORT FOOTING ) 
KM. f 

UNSTRING Statement 

UNSTRING identifler-l 5-37 



TYPE IS 



/ CONTROL HEADING ) / data-name-l ) 
) FINAL f 



: CONTROL FOOTING ) ( data-name-2 ] 
FINAL I 



[delimited BY lALL] {irraf-r'} [' 2^ W {[tlll'AT'}] '■'] 
INTO identlfler-4 [, DELIMITER IN Identlf ier-5] [, COUNT IN ldentifier-6] 

[, identlfler-7 [, DELIMITER IN ldentifier-8] [, COUNT IN identifler-9]] 
[WITH POINTER identifier-10] [TALLYING IN identifler-l 1 ] 
[ ; ON OVERFLOW imperative-statement ] 
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USAGE rhru V AlUE 
USAGE Clause 



COMPUTATIOMAL 
CXJMP 



COMPUTATIONAL- 1 
COMP-1 



[USAGE IS] 



COMPUTATIONAL-2 

COMP-2 

COMPUTATIONAL-A 

COMP-4 

DISPLAY 

INDEX 



4-25 



USE Stdtement Format 1 



USE AFTER STANDARD I l^^l > PROCEDURE ON <^ OUTPUT 

I-O 
EXTEND 



( EXCEPTION \ . 
' \ ERROR /- 



file^iame-l [, file-name-2] 
INPUT 



5-38 



Use Statement Format 2 

USE BEFORE REPORTING identifier. 



6-13 



USE Statement Format 3 

USE FOR DEBUGGING ON 

i[ ALL REFERENCES OF] identifler-l 
procedure -name- 1 
file-name-1 
cd-name-1 
ALL PROCEDURES 



■ [Ali REFERENCES OF] identifier-2 
procedure-name— 2 
file-name-2 
cd-name-2 
ALL PROCEDURES 



10-5 



USE Statement Format 4 

USE FOR HASHING ON file-namu-l i, fi lL-nar.e-2J ... . 



5-38 



USE Statement Format 5 



USE FOR ACCESS CONTROL 



UN 



( IKPLT ) 

) i-o ( 

\ IKPUI 1-0 / 
I 1-0 INPUT j 



KEY IS data-name 



[fob ) '■ea'ni-nB 
I Igg. \ REALMS 



mo-l [, C(.',iir.-nar.e-2] ... | 



16-3 



USE Statement Format 6 

USE FOR DEADLOCK ON t ^^^'V'"""''"^ '' "'"■-''^'"-''-"^•'-^i •••! 
) REALMS ( 



16-3 



VALUE Clause i^rtn<a^ 1 

VALftE IS lltfetal 



4-27 



E-28 
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VALUE thru WRITE 
VALUE Clause Format 2 



{S'Le}i""-^-1 [{iiuGH}l"-l-2] [. Hteral-3 [{SghJ ^""-^"^J ] 



4-27 



Working-Storage Section of Data Division 

WORKING-STORAGE SECTION . 4-2 

[data description entry] ..• 

WRITE Statement Format 1 

WRITE record-name [FROM identlfler-1] 5-39 



/ identifier-2) ["LINE ] 

i |E^ I ADVANCING ) < ^^^^^^^ ' LlINEsJ 

\ AFTER f 



{ mnemonic-name) 
PAGE f 



r. ,^ ( END-OF- PAGE ) . ^ 1 

> AT )£0P ( imperative-statement 



WRITE Statement Format 2 

WRITE record-name [ FROM identifier-l] [; INVALID KEY imperative-statement] 5-41 
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FUTURE SYSTEM MIGRATION GUIDELINES 



This appendix contains programming practices 
recommended by CDC for users of the software 
described In this manual. When possible, appli- 
cation programs based on this software should be 
designed and coded in conformance with these 
recommendations . 



COBOL 5 

COBOL 5 offers its users choices among features 
that perform the same function. The following 
paragraphs indicate preferred usage. 



Two forms of guidelines are given. The general 
guidelines minimize application program dependence 
on the specific characteristics of a hardware 
system. The feature use guidelines ensure the 
easiest migration of an application program to 
future hardware or software systems. 



GENERAL GUIDELINES 

Good programming techniques always include the 
following practices to avoid hardware dependency: 

Programs should avoid hardcoded constants. 
Manipulation of data should never depend on 
the occurrence of a type of data in a fixed 
multiple such as 6, 10, or 60. 

Programs should not manipulate data based on 
the binary representation of that data. Char- 
acters should be manipulated as characters, 
rather than as octal display-coded values or as 
6-bit binary digits. Numbers should be mani- 
pulated as numeric data of a known type, rather 
than as binary patterns within a central memory 
word. 



Comment Entries 

Comment entries AUTHOR, INSTALLATION, DATE-WRITTEN, 
DATE-COMPILED, or SECURITY should not be used. 
This information can be documented with a normal 
COBOL comment, using an * in column 7. This usage 
complies with a proposed revision to the ANSI 
standard. 



SUPERVISOR, MEMORY, and 
ASSIGN OBJECT-PROGRAM Clauses 

The SUPERVISOR, MEMORY, and ASSIGN OBJECT-PROGRAM 
clauses should not be used. These clauses are 
currently used only for documentation and the 
information in them can be specified with a 
comment. This usage complies with a proposed 
revision to the ANSI standard. 



Collating Sequence 

Whenever possible, the ASCII collating sequence 
should be specified. 



Programs should not identify or classify 
information based on the location of a specific 
value within a specific set of central memory 
word bits. 

COMPASS should be avoided in application 
programs. COMPASS and other machine-dependent 
languages can complicate migration to future 
hardware or software systems. Migration is 
restricted by continued use of COMPASS for 
stand-alone programs, by COMPASS subroutines 
embedded in programs using higher-level lan- 
guages, and by COMPASS owncode routines in CDC 
standard products. COMPASS should only be used 
to create part or all of an application program 
when the function cannot be performed in a 
higher-level language or when execution 
efficiency is more important than any other 
consideration. 



FEATURE USE GUIDELINES 

The recommendations in the remainder of this 
appendix ensure the easiest migration of an 
application program for use on future hardware or 
software systems. These recoimnendations are based 
on known or anticipated changes In the hardware or 
software system, or comply with proposed new 
industry standards or proposed changes to existing 
Industry standards. 



File Organizations 

For advanced access methods, indexed or direct with 
or without alternate keys should be used; actual- 
key should not be used. For word-address files, a 
method that can be easily modified to byte addresses 
should be used; the REPLACE statement can be used 
to modify the code at a later date. No restrictions 
are imposed on sequential file usage. 



Record Types 

Specification of a particular record type with the 
USE clause should be avoided. This decision can be 
made by the COBOL compiler based on the character- 
istics of the records. If, however, the program 
would produce a default record type of D or T (for 
example, the record contains an OCCURS DEPENDING ON 
clause) , the record type should be forced to W by 
specifying RT=W. 



RECORD Clause 

The VARYING phrase within the RECOilD clause should 
be used if records are to be variable length. This 
usage complies with a proposed revision to the ANSI 
standard. 
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RECX)RDING MODE Clause 

The RECORDING MODE Clause must not be used; uSage 
of this clause should not be necessary. 



necessary, the 60 TO DEFENDING ON statement can be 
used instead i This usage complies with a proposed 
revision to the ANSI standard. 



Level 77 Items 

Level 77 items should not be used. Elementary 01 

items can be used Instead. This usage complies 

with a proposed revision to the ANSI standard. 



REDEFINES and RENAMES Clauses 

REDEFINES, RENAMES, or group operations involving 
synchronized or COMP-n items should be avoided, 
particularly where usage is based on a knowledge of 
the Internal representation of data, such as 
floating-point layout or the number of characters 
per word. 



Group Items 

Avoid operations such as reference modification, 

string, and unstring on group items containing 

noncharacter data or synchronized items. Such 

usage is dependent oil the characteristics of the 
hardware system. 



Booleaii Items 

Avoid using Boolean items (items described by 
PICTURE character 1) and associated Boolean 
operators. This recommendation complies with the 
current ANSI standard and a propoied revision 
thereof . 



ALTER Statement 

The ALTER statisment should not be used. In 
general, use Of the ALTER stat^ent does Hot 
conform to good coding practices. If its use is 



Segment Numbers 

Segment numbers 50 through 99 should not be used; 
in the future , segment numbers will be limited to 6 
through 49. This should be adequate for virtually 
all applications. Programs should no longer need 
the initial-state capability of numbers 50 through 
99 because this ii only useful with the ALTER 
statement. This usage complies with a proposed 
revision to the ANSI standard. 



OPEN REVERSED Statement 

The REVERSED phrase of the OPEN statement should 
not be used. Usage has always led to inefficient 
processing, and the capability generally should not 
be required. This recommendation complies with a 
proposed revision to the ANSI standard. 



SORT Statement 

Specify the WITH DUPLICATES IN ORDER phrase for 
those sorts that expect It. Do not rely on this as 
the default. This usage complies with a proposed 
revision to the AltSI standard. 



STRING and UNSTRING Statements 

One of the operands in a STRING or UNSTRING 
statement must not be used as a subscript in the 
isame statement. This is poor coding practice and 
generally can be avoided. This recommendation 
complies With a proposed revision to the ANSI 
standard. 
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UTILITY ROUTINES 



Several utility routines are available and ran 
be accessed by the ENTER statement with USING 
parameters. Tlic routines are written in tht; 
COMPASS assembly language. UtLiity-name must ba 
enclosed in quotes. Each routine is shown with its 
appropriate USING parameters. 

C.DSPDN USING dala-name-I [ , data-aame-21 ... 

Prints the line niunb(.T of the line tli.it 
cont.iins Ihu ENTER stritemc-iit and the 
contents oi the itL>m data-namc-1 and 
data-naine-2 (If specitied). The line 
number is printed in the torm S$SI.-nnmi and 
is followed by two spaces, the i-ontents jt 
data-name— 1 printed in ocl.ii and, if 
specified, tlie contpnrs of d^ta-name-2 
preceded by a comma. Below this line is 
priiired 11 1 i nt> th,it irjinsiares the oi;Ih1 
fliardcLers to display code with each 
display coda character being printed under 
Che appropriate octal characters. Multiple 
lines are prinLcd If tiif contents of the 
specified data names oxci'ed 1^0 i-haracter-,. 

C.DiCMP USING dat.i-nami-i 

Returns the date the progrim w.js compiled 
in a form that dt-pendsj on tlic optTating 
systcra. The data iy n^presented by eight 
characters with the slash cl-.jraccurs 
included in the third and sixth positions. 
The standard default for tin- NO.S''KK oper- 
ating system is MM/DD/Y"^. The standard 
detaulL for the NOS oi)er;iLi:ig system is 
YY/MM/DU. D.-U,i-iiamo-l must he ,\n alplin- 
niur.eric d-ita item of night -'.r nore rharar- 
ters In length. /Vny field '. arger than 
eight characters Is rilled nn the right 
with sp.-ici'S. 



BBH 
CF 
EKL 
TRr 



A complete description of the meaning .ind 
use of tliese parameters appears in the 
CYBER Record Manager manual s . 

File-namo-l is the Cile-name of a file 
described in a SELECT clause in the 
Environment Division. Data-name-1 speci- 
fies an alphanumeric item that contains the 
parameters or a nonnumcrlc Literal that 
duplicates the parameter format ot the FILE 
lOntrol statement. 



C.GETliP USING data-".ame-i 

Rtturns the paramecers specified on the 
I'Xfciition call control statement in the 
Item indicated by data-narae-1. The calling 
directive and all parameters specified with 
it ari' returned to the item. Only one card 
Lmagi> c.in be returned, however; continua- 
tion statements are not processed. The 
data item i'ldlcated by data-name-1 must be 
an al phanumertc item and should be 80 
characters in length. If the item is 
larger than 80 characters, it is blank 
filled. If it is smaller, the card Image 
is truncated on the right. The UNSTRING 
statement can be ubed to separate the 
paraneters lor processing. 

C.SEEK USING fLlc- name-1 



C. FILE USING tile-na.T.e-1 , data-namt-l 

Allows spt-c i fi c:it i on »)f s(-*vi^ral parauirttiirs 

normally spi^v-ified through the i.S'-; clause 

ur the FILE contrul statement. T:n; param- 
eters that cun be included ari': 



Performs a SEEK operation on the file 
di-signati'd by file-name-l. File-name-l 
ir.uf^t l:c the COBOL filu-name oi an indexed, 
direct, or actua". -bey lile. A SEEK opera- 
tion ;..ji!H!l imi!» providi-"! tn overlap between 
procfSH I iig and Input-output. 
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INDEX 



A picture symbol 4-16 

Abbreviated combined relation condition 1-18 

ACCEPT 

ACCEPT statement 5-4 

File Section 4-2 

OPEN statement 5-21 

Subschema reference 16-1 
Access 

ACCESS MODE clause 3-10 

Control C-1 

Control key C-1, 16-3 

Dynamic 3-10 

Mode C-1 

Open mode 3-11, 5-22 

Random 3-10 

Sequential 3-10 
Actual-key file 

Alternate record key 3-10 

Block size 4-4 

Data base file 16-1 

Definition C-1 

MERGE statement 7-4 

Organization 3-9, 3-10 

Primary key 3-9, 3-16 

READ statement 5-26 

WRITE statement 5-41 
Add 

ADD statement 5-5 

COMPUTE statement 5-8 

Operator 1-10 
Advanced Access Methods 

Actual-key files 3-9 

Definition C-1 

Direct files 3-8 

Indexed sequential files 3-7 
I ADVANCING, WRITE statement 5-40 
AFTER 

INSPECT statement 5-14 

PERFORM statement 5-25 

WRITE statement 5-40 
Algebraic move 5-18 
Align 

ACCEPT statement 5-4 

MOVE statement 5-17 

ROUNDED phrase 5-6 

SIZE ERROR phrase 5-6 
ALL 

DISPLAY statement 5-9 

Figurative constant 1-9 

INSPECT statement 5-14 

PROCEDURES phrase 10-6 

SEARCH statement 5-29 

STRING statement 5-35 

UNSTRING statement 5-37 
Alphabet 

ALPHABET clause 3-3 

CODE-SET clause 4-5 

MERGE statement 7-4 

Relation condition 1-17 

SET statement 5-30 

SORT statement 7-2 
Alphabetic 

Category 4-16, 4-19 

Character C-1 

Class 1-15, 4-16 

Move 5-17 



Alphanumeric 

Category 4-16, 4-19 

Character C-1 

Class 4-16 

Edited category 4-16, 4-19 

Move 5-17 
ALSO phrase 3-4 
Alter 

(See also Replacing, Delete, Rewrite) 

ALTER statement 5-7, F-2 

GO TO statement 5-12 

MERGE statement 7-5 

Segmentation 8-3 

SORT statement 7-2 

Subprogram call 15-2 

USE FOR DEBUGGING declarative 10-6 
Alternate record key 

ALTERNATE RECORD KEY clause 3-10 

Change with MIPGEN 3-10 

Definition C-1 

Duplicates 3-12, 5-27 

READ statement 5-26, 5-27, 16-2 

REWRITE statement 5-28 

START statement 5-33 

Subschema interface 16-1, 16-3 

WRITE statement 5-39 
American National Standard X3. 23-1974 C-1 
AND 

Combined relation condition 1-17, 1-18 

Hierarchy 1-18 

Logical connective 1-7 

SEARCH statement 5-29 
ANSI parameter of compiler call 4-24, 5-22, 12-1 
Apostrophe 

APO parameter of compiler call 12-2, 

Literal 1-8 

QUOTE IS APOSTROPHE 3-5 
APPEND 11-11 
APPL 12-12 
Application C-1 

Application Definition Language (ADL) C-1 
APPLY clause 3-18 
Area 

A 1-2. 1-3 

B 1-2, 1-3 

Data base 16-5, C-1 
Arithmetic 

Expression 

COMPUTE statement 5-8 
Definition C-1 
Relation condition 1-15 
Sign condition 1-17 

Operators 1-10, C-1 

Statements 1-10 

Type 1-12 
ASCENDING KEY phrase 

MERGE statement 7-5 

OCCURS clause 4-14 

SEARCH statement 5-30 

SORT statement 7-2 
ASCII 

ASCII-64 

ALPHABET clause 3-3 
Character set A-2 
Collating sequence A-4 

CODE-SET clause 4-5 
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ASCII (Contd) 

^.RECORDING MODE clause 4-11 
Assign 
I ASSIGN clause 3-12 

ASSIGN OBJECT-PROGRAM clause F-1 

Subschema files 16-1 
Assumed decimal point C-1 
Asterisk 

Comment line 1-3 

Execution parameter 12-12 

LIST/NOLIST options 12-8 

Picture symbol 4-18 

Update directives 9-2 
At end condition 

Definition C-1 
I Format 1 USE 5-39 

READ statement 5-27 

RETURN statement 7-6 

SEARCH statement 5-29 

Status codes 3-14 
ATTACH 11-11 
AUTHOR paragraph 2-1 



B picture symbol 4-16 

Basic Access Methods (BAM) C-1 

BBH parameter 8-1 

BEFORE phrase 

INSPECT statement 5-15 

WRITE statement 5-40 
Beginning-of-information (BOI) C-1 
Binary 

Arithmetic operators 1-10 

Boolean operators 1-13 

Control of binary output 12-2 

Format tape 4-4 

RECORDING MODE clause 4-11 

Search 5-30 
Blank 

BLANK WHEN ZERO clause 4-14 

Leading blank zero control 12-5 

Line 1-3 

USAGE IS INDEX clause 4-26 
Block 

BLOCK CONTAINS clause 4-4 

BLOCK COUNT clause 3-13, 5-39 

Definition C-1 

Home, direct file 3-13 

Index, indexed file 4-4 

Report file 6-2 

Sequential file 4-4 

Types C-2 
Body group 6-1, C-1 
Boolean 

BOOLEAN-AND 1-13 

BOOLEAN-EXOR 1-13 

BOOLEAN-NOT 1-13 

BOOLEAN-OR 1-13 

Category 4-16, 4-19 

Data item C-1 

Expression 1-14, C-2 

Literal 1-8, C-2 

Operation 1-13 

Usage F-2 
BOTTOM 4-8 

Break control item 6-3, C-2 
Breakpoint 10-8, C-2 
Broadcast List C-2 
Buffer 

Sharing 3-20 

Specification 3-17 
BY 

COPY statement 9-1 



BY (Contd) 

DIVIDE statement 5-11 
INITIALIZE statement 5-13 
INSPECT statement 5-14 
MULTIPLY statement 5-20 
PERFORM statement 5-23 



C diagnostics 12-4, B-2 
Call 

CALL statement 8-4, 15-2 

Linkage Section 15-1 

Procedure Division header 15-2 
Called program 15-2, C-2 
Calling program 15-2, 15-3, C-2 
CANCEL statement 8-4 
Card processing 4-5 
Carriage control 

ADVANCING phrase of WRITE 5-40 

Characters 3-3 

Comment line 1-3 

DISPLAY statement 5-9 

PRlglTF parameter 3-18 

Repdrt file 6-2 

SPECIAL-NAMES paragraph 3-2 

WRITE statement 5-39 
Category 

Diata 

Editing 4-18 
MOVE statement 5-17 
PICTURE clause 4-16 
VALUE clause 4-27 

Statement 5-2 
CB5C0DE 8-5 
CD entry 

CD input 14-1 

CD output 14-5 
CDCS 11-3, 16-1 
CDC-64 

ALPHABET clause 3-3 

Character set A-2 
CF 6-10 
CH 6-10 
CHANGE 11-11 
Character-String C-2 
Characters 

CHARACTERS 

BLOCK CONTAINS clause 4-4 
MEMORY clause F-1 
RECORD clause 4-8 

COBOL set 1-2 

Computer set A-2 

Editing 4-18 

Punctuation 1-4 

Relation 1-7 

Special 1-7 
Checkpoint 3-19, 5-8 
CID interface 10-8, 11-4 
Class 

Condition 1-15 

Data 4-16 
Clause C-2 
Close 

CLOSE statement 5-7 

File status 3-13 

READ statement 5-25 

Report Writer 6-1 

STOP statement 5-34 

TERMINATE statement 6-12 

USE FOR DEBUGGING statement 10-6 
CMM 

Interface 11-1 

Routines 8-6 
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14-1, C-2 



5-22, 12-1 



COBOL 

Character set 1-2, C-2 
I Communication Facility (CCF) 

Compiler call 12-1 

Error status 3-15 

Subschema 16-1 

Word 1-6 
COBTRFL 10-1 
CODE clause 6-3 
CODE-SET 

ALPHABET clause 3-3 

CODE-SET clause 4-5 

SET statement 5-30 
Coded tape 

Block type 4-5 

RECORDING MODE clause 4-11 
Collating sequence 

ALPHABET clause 3-3 

ANSI parameter on compiler call 

Definition C-2 
I Duplicate alternate record key 3-12 

Indexed file 3-8 

MERGE statement 7-4 

OPEN statement 5-21 

PROGRAM COLLATING SECJJENCE clause 3-2 

Redefinition for native set 3-3 

SET statement 5-30 

SORT statement 5-32, 7-3, 11-14 

Usage F-1 
COLUMN NUMBER clause 6-6 
Combined condition 1-18 
Comma 

Connective 1-7 

COPY text 9-1 

DECIMAL-POINT clause 3-4 

Interchangeable with semicolon 1-6 

Library text-word 9-2 

Picture symbol 4-18 

Separator 1-6 

Series connective 1-7 

Subscripting 1-20 
Comment 

Debugging line 10-5 

Entry 

Definition 1-10, C-2 
Identification Division 2-1 
Usage F-1 

FDL file 8-3 

Library text 9-1 

Line 1-3, C-2 
Committed transaction 16-7 
Common block 

CCOMMON 15-1 

Data map 12-10 
Common memory manager (see CMM interface) 
Common-Storage Section 15-1 

Communication description entry (see CD entry) 
Communication section 4-3 
COMP (see COMPUTATIONAL) 
COMP-1 (see COMPUTATIONAL- 1) 
COMP-2 (see COMPUTATIONAL-2) 
COMP-4 (see COMPUTATIONAL-4 ) 
COMPASS 

Interface 11-1 

Object code file name 12-7 

Subprogram 15-3 
Compile 

Call 12-1 

Date 2-1 

Diagnostics B-1 

Directing statements 5-2 

Subschema interface 16-1 

Time C-2 



COMPUTATIONAL 

Arithmetic 1-10 

Format 1-11 

Storage control 12-3 

USAGE clause 4-25 
COMPUTATIONAL-1 

Arithmetic 1-10 

Format 1-11 

USAGE clause 4-25 
COMPaTATIONAL-2 

Arithmetic 1-10 

Division remainder 5-12 

Format 1-11 

Intermediate result 1-10 

Linkage Section 15-1 

Kove 5-18 

Scientific format 1-9 

USAGE clause 4-25 
COMPUTATIONAL-4 

Arithmetic 1-10 

Format 1-11 

USAGE clause 4-25 
COMPUTE statement 5-8 
Computer-name clause 

OBJECT-COMPUTER paragraph 3-1 

SOURCE-COMPUTER paragraph 3-1 
Conceptual schema 11-7, C— 2 
Condition 

(Also see At end. Invalid key) 

At-end 3-13 

Combined 1-18 

IF statement 5-13 

Invalid key 3-13 

Level number 88 4-13, 4-27 

Negated 1-18 

PERFORM statement 5-23 

Qualifier 1-19 

Simple 1-15 

Statement 5-2 

Unique reference 1-19 

VALUE clause 4-27 
Configuration Section 3-1 
Connected file 

ACCEPT statement 

DISPLAY statement 
Connectives 1-7 
Console, operator 

ACCEPT statement 

DISPLAY statement 

RERUN clause 3-19 

STOP statement 5-35 
Continuation line 1-2, 3-18 
CONTINUE statement 5-8 
Control 

Control break 6-3, C-2 

CONTROL clause 6-3 

CONTROL FOOTING 6-10 

CONTROL HEADING 6-10 

Data item C-2 

Statement 

C0B0L5 12-1 

C5TDMP 10-2 

FILE 3-17, 5-4, 5-9, 11-5, 12-12 

LGO 1-1, 12-12 

MODE 5-6 

Update 9-2 

Word C-2 
Copy 

COPY statement 9-1, 15-1 

Utilities 3-7 

X parameter of compiler call 12-8 
CORE 12-12 



5-4 
5-9 



5-4 
5-9 
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CORRESPONDING (CORR) 

ADD statement 5-5 

MOVE statement 5-17 

SUBTRACT statement 5-36 
Coset 11-9, C-2 
COUNT IN phrase 5-38 
CR picture symbol 4-18 
CRM Interface 11-3 
Crossfootlng 6-9 
cs currency symbol 4-18 
Currency 

CURRENCY SIGN clause 3-4 

Picture symbol 4-18 

Symbol 3-4, C-2 
CYBER Database Control System (CDCS) 11-3, 
CYBER Interactive Debug (CID) 10-8, 11-3 
CYBER Record Manager (CRM) 

Block type 4-4 

Definition C-2 

Error status 3-14 

FILE control statement 3-17, 11-5 

File organization implementation 3-6 

File position codes 16-6 

File structure assumed 

ACCEPT statement 5-3 
DISPLAY statement 5-9 
Paragraph trace file 10-1 
Report file 6-2 

Interface 11-3 

USE declarative 5-38 
C5TDMP control statement 10-2 



16-1 



C, 


.CMMMV 


8-6 




c. 


.DMRST 


16-7 




c, 


.DSPDN 


G-1 




c, 


.DTCMP 


G-1 




c, 


.FILE 


5-8, G-1 


c. 


.GETEP 


G-1 




c, 


.lOENA 


3-14, 


5-39 


c. 


,IOST detail 


error 


c. 


,LOK 16-4 




c, 


.OFFTR 


10-2 




c. 


,ONTR 


10-2 




c, 


.SEEK 


G-1 




c, 


.SORTP 


7-1 




c, 


.STPTR 


10-2 




c, 


.UNLOK 


16-4 





code 3-14, 16-4 



12-3 



Indicator area 10-3 

Parameter of compiler call 12-3, 16-1 

Pseudo-text 9-1 

Type record 4-9 
Data 

Base 

D parameter of compiler call 
Definition C-3 
FDL file 8-3 
Status block 16-5 

Conversion 11-20 

DATA RECORDS clause 4-6 

Description entry 4-11 

Description Language (DDL) 16-1, 

Division 4-1, 16-1 

Division entries 4-3 

Name 4-13, C-3 
DATE 5-4 

DATE-COMPILED paragraph 
DATE-WRITTEN paragraph 
DAY 5-4 

DAY-OF-WEEK 5-5 
Dayfile B-1 
DB 

Parameter 10-1, 12-3 

Picture symbol 4-18 



C-3 



2-1 
2-1 



DB$ASK 


16-7 


DB$BEG 


16-7 


DB$CMT 


16-8 


DB$DBST 


16-5 


DB$DROP 


16-8 


DB$GTID 


16-8 


DB$LKAR 


16-8 


DB$RPT 


16-4 


DB$SIR 


16-7 


DB$VERS 


16-9 


DDL 16- 


-1 



DE 6-10 

Deadlock 16-3, C-3 

DEBUG-ITEM 

Contents 10-6 

Definition 1-7 
Debug mode 10-8, C-3 
Debugging 

Compile option 10-5, 12-3, 12-7 

DEBUG-ITEM 10-6 

DEBUGGING MODE clause 3-1, 10-1, 10-5 

Facility C-3 

Line 10-3, C-3 

Paragraph trace 10-1 

Pseudo-text 9-1 

Sections 10-5 

Switch 6 10-5 

Termination dump 10-2 
Decimal 

Point 

Alignment for composite size 5-6 

Assumed 4—17 

DECIMAL-POINT clause 3-4 

Move 5-17 

Numeric literal 1-8 

RECORDING MODE clause 4-11 

Redefinition 3-4 
Declaratives 

Format 5-1 

USE AFTER STANDARD ERROR 5-38 

USE BEFORE REPORTING 6-13 

USE FOR ACCESS CONTROL 16-3 

USE FOR DEADLOCK 16-3 

USE FOR DEBUGGING 10-5 

USE FOR HASHING 5-38 
DEFINE 11-11 
Definitions C-1 
Delete 

DELETE statement 5-9 

USE FOR DEBUGGING 10-6 
DELIMITED BY 

STRING statement 5-35 

UNSTRING statement 5-37 
Delimited scope statement 

Definition C-3 

END-IF 5-2, 5-13 

END-PERFORM 5-2, 5-23 

END-SEARCH 5-2, 5-29 
Delimiter 

Definition C-3 

DELIMITER IN phrase 5-38 

Nonnumeric 1-9 

Pseudo-text 9-1, 9-2 
DEPENDING phrase 

GO TO statement 5-12 

OCCURS clause 
Phrase 4-14 
Secondary-Storage Section 4-3 

RECORD clause 
Phrase 4-8 
READ statement 5-26 
DESCENDING KEY phrase 

MERGE statement 7-4 

OCCURS clause 4-14 

SEARCH statement 5-30 
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DESCENDING KEY phrase (Contd) 

SORT statement 7-2 
DESTINATION COUNT 14-6 
Destination definition C-3 
DETAIL 6-10 
Diagnostics 

Compilation B-2 

Compiler call options 12-1 
I Continuation line 3-17 

Control B-1 

Execution B-3 
Direct access file C-3 
Direct file 

Alternate record key 3-8, 3-9 

Block 4-4 

Definition C-3 

FIT fields 11-4 

Initial 3-8 

Organization 3-8 

Primary key 3-8, 3-16 

READ statement 5-25, 5-26 

REWRITE statement 5-28 

START statement 5-33 

Subschema interface 16-1 

USE declarative 5-38 
Disable 

Definition C-3 

DISABLE statement 5-9, 14-9 
Display 

Code 

Arithmetic 1-12 
Values A— 2 

DISPLAY statement 5-9 

File Section 4-2 

OPEN statement 5-21 

Subschema reference 16-2 

Usage 

INSPECT statement 5-14 
STRING statement 5-35 
UNSTRING statement 5-37 
USAGE clause 4-25, 4-26 
Divide 

By zero 5-11 

COMPUTE statement 5-8 

DIVIDE statement 5-lD 

Operator 1-10 
Division 

(Also see Divide, Subschema interface) 

Data 4-1 

Environment 3-1 

Identification 2-1 

Procedure 5-1 

Required divisions 1-4 
DOWN BY phrase 5-32 
DUPLICATES 

READ statement 5-26 

REWRITE statement 5-28 

SORT statement 7-3, F-2 
Dynamic access C-3 
Dynamic program 8-3, C-3 



Block type 4-4 
Scientific notation 1-9 

EBCDIC 

ALPHABET clause 3-3 
Character set A-2 
CODE-SET clause 4-5 
Collating sequence A-5 
RECORDING MODE clause 4-11 

Edited item C-3 

Editing 4-18 

EGI 14-1 



Elementary item 

Definition 4-13 

Move 5-18 
ELSE 5-13 

Embedded key 5-41, C-3 
EMI 14-1 
ENABLE 

Definition C-3 

ENABLE statement 5-12, 14-9 
END phrase 

Declarative 5-1 

READ statement 5-27 
END KEY 14-2 
End-of- 

Fiie (see Partition) 

Group indicator (EGI) C-3 

Information (EOI) C-3 

Information boundaries C-4 

Message indicator (EMI) 14-3, C-3 

Page 5-40 

Reel checkpoint 3-20 

Segment indicator (ESI) C-3 
END statement terminator 

END- IF 5-13 

END-PERFORM 5-23 

END-SEARCH 5-29 
ENTER FTN5 statements 11-3, 11-6 
ENTER statement 5-12, 11-1, 15-3 
Entry C-3 
Environment Division 

Position in program 1-4 

Skeleton 3-1 

Subschema interface 16-1 
EOP 5-40 
Equal 

EQUAL TO 1-15 

START statement 5-33 
Error 

(Also see Diagnostics) 

CDCS codes 16-5 

COBOL-detected error codes 3-15 

CYBER Record Manager codes 3-14 

File Name 12-4 

Level reported 12-4 

Termination parameter compiler call 12-4 

USE declarative 5-38 
ERROR KEY 14-6 
ESI 14-1 
Examples 

COPY 9-3 

MOVE statement 5-20 

OCCURS clause 4-15 

PICTURE editing 4-17 

Program 13-1 

Reference modification 1-22 
EXCEEDS 

Relation condition 1-15 

START statement 5-33 
EXCEPTION 5-38 
Execution 

Call 1-1, 12-12 

Diagnostics B-3 

Parameters 12-12, 15-2 

Subschema interface 16-4 

Time C-4 
EXIT 

EXIT statement 5-12 

Subp ro gr am 15-3 
Explicit scope terminator 5-2, C-4 
Exponent 1-9 

Exponentiation 1-9, 1-13, 5-6 
Expression 

Arithmetic 1-10, 5-9 

Boolean 1-13 



60497100 N 



Ittdejc-5 



Expression (Contd) 

Conditional 1-14 

Evaluation 1-11 

Relation condition 1-15 
EXTEND 

Open mode 5-22 

USE statement 5-38 
Extended memory 4-3, C-4 
External 

EXTERNAL clause 4-6, 15-2 

Files 

Declaration 4-6 
Definition C-4 
File status 3-13 
Relative key 3-16 
Shared files 15-2 
Subprogram call 8-4 
Word-address key 3-17 

Floating point format 1-8 

Schema 11-7, C-4 



Diagnostics 
Type record 



B-2 
4-9. 



5-22, 5-28 



Fast Dynamic Loader (FDL) 8-3, C-4 
FD entry 

External files 15-2 

File Section 4-2 

Report file 6-1 

Skeleton 4-3 

Sort file 7-1 

Subschema 16-1 
FDL 

File 8-3 

Parameter on compiler call 12-5 

Program Equivalence section 8-3 
Federal Information Processing Standard 

Definition C-4 

Parameter on compiler call 12-5 
FIELDATA format 

CODE-SET clause 4-5 

SET statement 5-32 

DNI collating sequence 3-3 
Figurative constant 

Collating sequence effect 3-2 

DISPLAY statement 5-9 

Examples 1-9 

INITIALIZE statement 5-14 

INSPECT statement 5-14 

LABEL RECORDS clause 4-7 

MOVE statement 5-17 

STOP statement 5-35 

STRING statement 5-35 

Values 1-9 
File 

Data base 16-1, 16-4 

Definition C-4 

Description entry (see FD entry) 

Equivalence 12-12 

Locking 16-4 

Logical file name 3-13 

Name debugging 10-6 

Organization C-4 (see also Organization) 

Root 16-2 

Section 

Skeleton 4-1 

Subschema Interface 16-1 

Status 

C.IMRST 16-7 

C.IOST 3-14, 16-4 

DB$DBST 16-5 

FILE STATUS clause 3-13, 5-27, 16-1 

Values 3-14 

Unlocking 16-4 



File-Control 

External files 15-2 

FILE-CONTROL paragraph 3-6 

Subschema interface 16-1 
FILLER 

Data Description entry 4-11 

MOVE statement 5-20 
FINAL 

SUM clause 6-9 

TYPE clause 6-10 
FIPS (see Federal Information Processing Standard) 
FIRST DETAIL 6-4 
FIT 

Error limit 3-14 

Fields 11-3 

IFETCH function 11-5 

USE clause 3-17 
FLBLOK 4-4 

Floating point arithmetic 1-10 
FOOTING 

LINAGE clause 4-8 

PASe clause 6-4 
FORTRAN' 11-6, 15-3 
FROM phrase 

PERFORM statement 5-25 

RELEASE statement 7-6 

REWRITE statement 5-28 

SUBTRACT statement 5-36 

WRITE statement 5-39 
Future system migration guidelines F-1 



GENERATE statement 6-11 

GET 11-11 

GIVING 

ADD statement 5-5 

DIVIDE statement 5-11 

MERGE statement 7-6 

MULTIPLY statement 5-21 

SORT statement 7-4 

SUBTRACT statement 5-36 
Glossary C-1 
GO 

ALTER statement 5-7 

GO TO statement 5-12 

PERFORM statement 5-24 

Segmentation 8-1 

USE FOR DEBUGGING 10-6 
GREATER 

Relation condition 1-15 

START statement 5-33 
Group 

Definition 4-13 

GROUP INDICATE clause 4-27, 6-7 

MOVE statement 5-17 

Repeating 3-11 

Usage guidelines F-2 



HASHED-VALUE 

Definition 1-7 

USE statement 5-39 
Hashing 

Direct file 3-8 

Special register 1-7 

USE FOR HASHING declarative 5-38 
HEADING 6-4, 6-10 
High order end C-4 
HIGH-VALUE 

Collating sequence 3-2, 3-4 

Definition 1-8 
Home block 

BLOCK COUNT clause 3-13 

Definition 3-8 

USE declarative 5-39 
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I format tape 

Block type 4-4 
RECORDING MODE clause 4-11 
Identification Division 

Position in program 1-4 
Skeleton 2-1 
Identifier 

Debugging 10-5 
Definition 1-20 
IF statement 5-13 
IFETCH function 11-5 
IMF interface 11-7 
IML statements 11-8 
Imperative statement 5-2 
Implementor— name 
Definition C-4 
Implementor-narae clause 3—2 
Index 

Data item 

Definition C-5 
INITIALIZE statement 5-14 
Linkage Section 15-1 
Move 5-17 

SEARCH statement 5-28 
SET statement 5-31 
Size 4-10 
USAGE clause 4-26 
Definition C-4 
I File for alternate record key 3-12, C-5 
Name 

Definition C-5 
PERFORM statement 5-23 
SEARCH statement 5-29 
SET statement 5-31 
USING phrase 15-3 
Indexed 
File 

Alternate record key 3-8, 3-11 
Block 4-4 
Definition C-5 
Indexed sequential 3-7 
MERGE statement 7-6 
Organization 3-7 
Primary key 3-8 
READ statement 5-26 
Subschema interface 
INDEXED BY phrase 

OCCURS clause 4-15 
SEARCH statement 5- 
SET statement 5-31 
Indexing 

Definition 1-20 
LABEL RECORDS clause 4-7 
OCCURS clause 4-14 
READ statement 5-26 
SEARCH statement 5-29 
SET statement 5-32 
UNSTRING statement 5-37 
Indicator area 1-2 
Information base 11-7, C-5 
I Information Management Facility (IMF) 11-7 
Information Manipulation Language (IML) 11-7, 
Information system 11-7, C-5 
INITIAL clause 14-2 
Initialize 

INITIALIZE statement 5-13 
MOVE statement 5-17 
INITIATE statement 6-12 
Input 

ACCEPT statement 5-4 
I ASSIGN clause 3-12 
File C-5 
File name 12-5 
I Implementor-name 3-12 



16-1 



-29 



C-5 



Input (Contd) 

INPUT PROCEDURE 

Definition C-5 
Phrase 7-3 
Segmentation 8-3 

Open mode 5-22 

SELECT clause 3-16 

USE statement 5-38 
Input-Output Section 3-5 
INSPECT statement 5-14 
Installation 

Default on compiler call 12-1 

INSTALLATION paragraph 2-1 
Integer C-5 

Integer arithmetic 1-12 
Internal schema 11-7, C-5 
Inter-program conmiunication 

CALL statement 15-2 

ENTER statement 15-3 

Linkage Section 15-1 

Procedure Division header 15-2 
INTO 

DIVIDE statement 5-11 

READ statement 5-26 

RETURN statement 7-6 

STRING statement 5-35 
Invalid key condition C-5 
INVALID KEY phrase 

DELETE statement 5-9 

READ statement 5-26 

REWRITE statement 5-28 

START statement 5-33 

WRITE statement 5-42 
Invitation list C-5 
I-O 

Open mode 5-22 

USE statement 5-38 
I-0-CONTROL paragraph 3-18 



Job deck 

Example 12-13 

Fast Dynamic Loader usage S-5 

Job step C-5 

Journal C-5 

Justified 

Condition-name 4-13 
Figurative constant 1-7 
JUSTIFIED clause 4-14 
MOVE statement 5-17, 5-19 
USAGE IS INDEX clause 4-25 
VALUE clause 4-27 



K block type 4-4 
Key 

(Also see Primary key. Alternate record key. 
Record key. File 
organization) 
Access control 16-3 
Embedded 5-41 
Format 

Actual-key file 3-9, 3-16 

Direct file 3-8, 3-16 

Indexed file 3-8, 3-16 

Relative file 3-6, 3-15 

Word-address file 3-10, 3-17 
Item C-5 

Key of reference 5-33, C-5 
KEY phrase 

MERGE statement 7-4 

OCCURS clause 4-14 

READ statement 5-27, 16-2 

SEARCH statement 5-30 
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Key (Contd) 

KEY phrase (Contd) 

SORT statement 7-3 
START statement 5-33, 5-34 
I RECORD KEY clause 3-15 

RELATIVE KEY clause 3-16 

I Sparse 3-12 
WORD-ADDRESS KEY clause 3-17 
Keyword C-5 

L format tape 4-4 
Label 

CLOSE statement 5-7 

LABEL RECORDS clause 4-6 
I MULTIPLE FILE TAPE clause 3-17 

OPEN statement 5-21 
Language 

Characters 1-4 

COMPASS 11-1, 12-11, 15-1 

Elements 1-4 

FORTRAN 15-1 

Summary E-1 

Words 1-6 
Language-name C-5 
LAST DETAIL 6-4 
Leading 

INSPECT statement 5-14 

SIGN clause 3-5, 4-23 
LEFT 4-24 
LESS THAN 

Relation 1-15 

START statement 5-33 
Level 

Data Description entry 4-11 

Definition 4-3, C-5 

Indicator 4-3 

Number 4-3 

Report group description 6-4 

66 entry 4-13 

77 entry 4-12, F-2 

88 condition 1-15 

88 entry 4-13 
Library 

Definition C-5 

Library-name C-5 

Segmented program 8-1 

Source 9-1 

Subprogram enter 8-1 

Update program 9-2 

User 8-1 
Linage 

LINAGE clause 4-7 

WRITE statement 5-40 
LINAGE-COUNTER 

Definition 1-7 

LINAGE clause 4-7 

Qualification 1-20 
Line 

Length report file 6-2 

LINE NUMBER clause 6-7 

Program 1-1 
LINE -COUNTER 

Definition 1-7, 6-2 

Qualification 1-20 
Linkage Section 15-1 
Listing control 

Burstable listing 12-2 
I Examples 12-9, 12-10, 12-11 

Options 12-5 

Page width control 12-6 

Print density control 12-6 
I Listing file name 12-5 
LIST/NOLIST commands 12-8 



Literal 

CURRENCY SIGN clause 3-4 

Definition C-6 

Nonnumeric 1-9 

Numeric 1-8 

SET statement 5-33 

STOP statement 5-34 

STRING statement 5-35 
Lock 

CDCS 16-4, C-b 

CLOSE statement 5-7 

LOCK phrase 5-8 

OPEN statement 5-22 
Logical 

Connective 1-7 

File name 3-13 

Operator 1-17 

Record C-6 
Low order end C-6 
LOW-VALUE 

Collating sequence 3-2 

Definition 1-8 

'\, 
Mass storage C-6 
Mass storage file C-6 
MCS 11-10, 14-1 
Memory 

Central 

Buffer sharing 3-20 
Buffer size 3-16 
Sort/merge block 7-1 

Common Memory Manager interface 11-1, G-1 

MEMORY clause in OBJECT-COMPUTER paragraph F-1 

Memory management 8-1 

Shared memory area 8-5 
Merge 

ALPHABET clause 3-3 

Central memory block 7—1 

Collating sequence 3-3, 7-5 

MERGE statement 7-4 

Segmentation 8-3 

Subschema reference 16-2 
Message 

Definition C-6 

Indicators C-6 

Message count C-6 

MESSAGE COUNT clause 14-5 

MESSAGE DATE clause 14-3 

MESSAGE TIME clause 14-3 

Segment C-6 
Message Control System (MCS) 11-10, 14-1, C-b 
Messages (see Dayfile, Diagnostics) 
Metabase 11-7, C-6 
Minus (-) PICTURE symbol 4-18 
MIP files (see ALTERNATE RECORD KEY clause. 

Index file. Organization) 
MIPGEN utility 3-10 
Mnemoni c-name 

ACCEPT statement 5-4 

Definition C-6 

DISPLAY statement 5-9 

SET statement 5-32 

SPECIAL-NAMES paragraph 3-2 

SWITCH-n clause 3-5 

WRITE statement 5-39 
Mode 

ACCESS MODE clause 3-10 

Open mode 5-22 

Statements allowed 3-11 
Mode— name C-6 
Move 

MOVE statement 5-17 

Secondary-Storage Section items 4-3 
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MSB parameter 11-7, 12-6 

MSGS 12-12 

Multiple 

File set C-6 

File set OPEN statement 5-22 

MULTIPLE FILE TAPE clause 3-18 

Multiply 

COMPUTE statement 5-8 
MULTIPLY statement 5-20 
Operator 1-10 



N diagnostics B-2 
I NAM U-13 
Native 

Character set 3-3, C-6 
Collating sequence 
I Definition 3-3, C-6 
Redefinition 3-3 
NATIVE key word 3-3 
Negated condition 1-18 

I NEGATIVE 1-17 
Network Information table 
Next 

NEXT GROUP clause 6-7 
NEXT PAGE phrase 6-8 
NEXT SENTENCE phrase 
READ statement 5-26, 
NO REWIND phrase 5-22 
Noise record C-6 
Nonnumeric 

Compare 1-17, 3-2 
Literal 

Continuation 1-3 
Definition 1-9, C-6 
Move 5-17 
NOS permanent file commands 11-11 
NOTRIP 12-12 
Numeric 

Category 4-16 
Character C-6 
Class condition 1-15 
Edited category 4-16 
Literal 

Definition C-6 
Scientific format 1-8 
Standard format 1-8 
Move 5-17 



11-13 



5-13 
16-2 



Operating system interface 11-11 
Operator 

Arithmetic 1-10 
Console (see Console) 
Relation 1-7 
Optional 

OPTIONAL phrase 

CLOSE statement 5-7 
OPEN statement 5-21 
READ statement 5-25 
SELECT clause 3-16 
Word 1-7 
ORG parameter 3-7 
Organization 

Actual-key 3-9 
Direct 3-8 

File organization C-4 
Indexed 3-7 

ORGANIZATION clause 3-15 
Relative 3-7 
Sequential 3-6 
Summary 3-7 
Usage F-1 
Word-address 3-10 
OUTPUT 

Implementor— name 3—12 
Open mode 5-22 
OUTPUT PROCEDURE 

Definition C-6 
Phrase 7-4, 7-5 
Segmentation 8-3 
Record type 4-10 
USE statement 5-38 
OUTPUT-C 5-10 
OVCAPS 8-1, 8-3, C-7 
Overf low 

Block C-6 
File 

Actual-key 3-9 
Direct 3-8 
Indexed 3-7 
OVERFLOW phrase 

CALL statement 15-4 
STRING statement 5-36 
UNSTRING statement 5-37 
Overlay-capsules (see OVCAPS) 
Overlays 8-1, C-7 
Owncode 11-19, C-7 



Object code 8-1 
OBJECT-COMPUTER paragraph 3-1 
OCCURS 

Alternate record key 3-11, 5-27, 5-34 

MOVE statement 5-18, 5-20 

OCCURS clause 4-14 

SEARCH statement 5-29 

VALUE clause 4-27 
OFF 

SET statement 5-32 

SWITCH-n clause 3-5 
OMITTED 



ALTERNATE RECORD KEY clause 
LABEL RECORDS clause 4-6 



3-12 



ON 



SET statement 5-32 
SWITCH-n clause 3-5 

Open 

Access mode 3-11 
Mode C-6 

OPEN statement 5-21, 
Shared memory area 3- 
USE FOR DEBUGGING 10- 

Operand C-6 



F-2 

20 

■6 



P picture symbol 4-16 
Page 

Eject for comment line 1-3 

END-OF-PAGE phrase 5-40 

Listing control 12-5 

Overflow 5-40 

PAGE 5-40 

PAGE clause 6-4 

PAGE FOOTING 6-10 

PAGE HEADING 6-10 
PAGE-COUNTER 

Definition 1-7, 6-2 

Qualification 1-20 
Paragraph 

Definition in Procedure Division 5-2, C-7 

Header C-7 

Name 

Definition 5-2 
Qualification 5-2 

Trace facility 10-1, 12-4 
Parentheses 

Arithmetic expression 1-11 

Conditional expression 1-18 

Separator 1-6 
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Partition C-7 
Partition boundary 

ACCEPT statement 5-5 
CLOSE statement 5-7 
OPEN statement 5-23 
READ statement 5-27 
Pause 

SET statement 5-33 
STOP statement 5-34 
Perform 

PERFORM statement 5-23 
Segmentation 8-1 
SET statement 5-32 
USE FOR DEBUGGING 10-6 
Permanent file 

Commands 11-11 
Definition C-7 
PERMIT 11-11 
PF 6-10 
PH 6-10 
Phrase C-7 
PIC (see Picture) 
Picture 

BLANK WHEN ZERO clause 4-14 
Character string 9-1 
CURRENCY SIGN clause 3-4 
DECIMAL-POINT clause 3-4 
PICTURE clause 1-10, 4-16, 6-8 
SYNCHRONIZED clause 4-24 
USAGE clause 4-25 
Plus 

LINE NUMBER clause 6-7 
NEXT GROUP clause 6-7 
Picture symbol 4-18 
POINTER phrase 

STRING statement 5-35 
UNSTRING statement 5-37 
Position 

CLOSE statement 5-7 
MULTIPLE FILE TAPE clause 3-18 
OPEN statement 5-22 
START statement 5-33 
POSITIVE 1-17 

Precedence rules for PICTURE 4-21 
Primary key 

Definition C-7 
OPEN statement 5-21 
RECORD KEY clause 3-16 
START statement 5-33 
Subschema interface 16-1 
Print 

File format PRINTF 3-18 
Item 6-6 
Line 6-6 
Printable item C-7 
Prior value 6-4 
Privacy module C-7 
Procedure 

Debugging 10-3 
Definition 5-1, C-8 
Division 

Header 5-1, 15-2 
Skeleton 5-1 
Statements 5-2 
Subschema interface 16-1 
Procedure-name 
Alter 5-7 
Definition C-8 
Qualifier 5-2 
Repetition 5-23 
PROCEED TO 5-6 
Program 

Collating sequence 3-2, 5-32, 12-2 
Dynamic 8-3 



Program (Contd) 

Exit 5-12, 5-34, 15-3 

Format 1-1, 1-3 

Library, Update 9-2 

Main subroutine 12-6 

Name 2-1 

Source Program C-9 

Static 8-3 

Subprogram 8-1, 12-6, 15-1 
Program equivalence section 8-3 
PROGRAM-ID paragraph 2-1 
PRU 

Definition C-8 

Device C-8 

Mass storage 4-4 

Short PRU C-9 

Size 4-4, C-8 

Tape 4-4 

Zero-length PRU C-10 
PRUF parameter 3-17 
Pseudo 

File-name 3-18, C-8 

Text 

Contents 9-1, 9-2 
Definition C-8 
Delimiter 1-6, 9-1, 9-2, C-8 
PSQ parameter of compiler call 1-1, 12-6 
Punch file 3-12, 4-5 
Punctuation 

Nonnumeric literal 1-9 

Pseudo-text 9-1, 9-2 

Separators 1-4 
PURGE statement 11-11, 14-10 



QTRM interface 11-13 

Qualification 1-19, 5-2, C-8 

Qualifier C-8 

Queue C-8 

Queues 14-3 

Quote 

Boolean literal use 1-8, 1-13 
Figurative constant 1-7 
Nonnumeric literal use 1-9 
QUOTE clause 3-5 
Redefinition 3-5, 12-2 



R type record 3-17 
Random 

Access C-8 

Access mode 3-10 

File C-8 

READ statement 5-26, 16-2 

REWRITE statement 5-28 

WRITE statement 5-41 
RD entry 6-1 
Read 

Actual-key file 5-27 

Data base file 16-2 

DELETE statement 5-9 

Direct file 5-26 

Indexed file 5-26 

OPEN statement 5-22 

READ statement 5-26, 16-2 

Relations 16-2 

Repeating group alternate key 3-11 

REWRITE statement 5-28 

Secondary-Storage Section items 4-3 

Sequential file 5-26 

Word-address file 5-27 
Realm 16-3, C-8 
RECEIVE statement 14-10 
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Record 

Area C-9 
Definition C-8 
Description entry 

Common Storage Section 15-1 

Definition C-9 

File Section 4-2 

Format 4-11 

Linkage Section 15-1 

READ statement 5-26 

Secondary-Storage Section 4-3 

Subschema Interface 16-1 

Working-Storage Section 4-2 

WRITE statement 5-39 
Key 

Definition C-9 

DELETE statement 5-9 

READ statement 5-27, 16-2 
I RECORD KEY clause 3-15 

RELATIVE KEY clause 3-16 

REWRITE statement 5-28 

START statement 5-33 
I WORD-ADDRESS KEY clause 3-17 

WRITE statement 5-41 
Name 4-9 

RECORD clause 4-8, F-1 
Size 4-8 
Type 4-8, C-9 
RECORDING MODE clause 4-11, F-2 
I Record-mark 3-17 
RECORDS 

BLOCK CONTAINS clause 4-4 
DATA RECORDS clause 4-6 
LABEL RECORDS clause 4-6 
Recovery points 16-4 
REDEFINES 

INITIALIZE statement 5-14 
MOVE statement 5-20 
REDEFINES clause 4-21, F-2 
VALUE clause 4-27 
Reel 
I Checkpoint 3-19 

CLOSE statement 5-7 
OPEN statement 5-22 
Swap 5-8 
Reference 

ALL REFERENCES OF phrase 10-5 
Modification 1-19, C-9 
Unique 1-19 
Relation 

Characters 1-7 
Compare table 1-16 
Condition 1-15, C-9 
Data base 15-2, 16-2 
Definition C-9 
Error processing 16-4 
Operator 1-7 
Read 16-2 
Relative 

File C-9 

File organization 3-6 

Indexing 1-20 

Key 3-6, 3-16 

Line number 6-7 

Record number 3-6, 3-16 

RELATIVE KEY clause 3-16 

DELETE statement 5-9 

READ statement 5-26 

REWRITE statement 5-28 

START statement 5-34 

WRITE statement 5-41 
Release 

Debugging 10-6 
RELEASE statement 7-6 
Secondary-Storage Section items 4-3 



Remainder 5-10 

REMOVAL phrase 5-8 

RENAMES 4-12, 4-23, F-2 

Repeating group C-9 

Repeating group alternate key 3-11 

REPLACE 

Permanent file command 11-11 

PICTURE clause 9-1 

REPLACE statement 9-4 
Replacing 

COPY statement 9-4 

INITIALIZE statement 5-13 

INSPECT statement 5-15 

REWRITE statement 5-28 
Report 

File C-9 

File format 6-2 

File Section 4-2 

READ statement 5-26 

REPORT clause 6-2 

Report Description entry 6-3 

REPORT FOOTING 6-10 

Report Group Description entry 6-4 

REPORT HEADING 6-10 

Report-name 6-2 

Report Section 6-2 

Report Writer facility 6-1 
Rerun 

RERUN clause 3-19 

STOP statement 5-35 
RESERVE clause 3-16 
Reserved word 1-6, C-9, D-1 
RESET phrase 6-9 
RESTART capability 3-19 
Restart unit 16-7 
Return 

RETURN statement 7-6 

Secondary Storage Section items 4-3 

USE FOR DEBUGGING 10-6 
REVERSED phrase 5-22, F-2 
Rewind 

CLOSE statement 5-7 

OPEN statement 5-21 
Rewrite 

REWRITE statement 5-28 

USE FOR DEBUGGING 10-6 
RF 6-10 
RH 6-10 

Rolling forward 6-9 
Root file C-9 
Rounded 

ADD statement 5-6 

COMPUTE statement 5-9 

DIVIDE statement 5-11 

MULTIPLY statement 5-21 

ROUNDED phrase 5-6 

SUBTRACT statement 5-36 
Run unit C-9 



S picture symbol 4-17 

SAME AREA clause 

REWRITE statement 5-28 
SAME AREA clause 3-19 
WRITE statement 5-39 

Sample programs 13-1 

SAVE ll-U 

Schema C-9 

Scientific notation 1-8 

SD entry 

READ statement 5-26 
Skeleton 7-2 

SEARCH statement 5-28 

Secondary-Storage Section 4-3 
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Section 

Boundaries C-10 

Common-Storage Section 15-1 

Communication Section 4-3 

Debugging 10-5 

Declaratives 5-1 

Definition 5-2, C-9 

File Section 4-2, 16-1 

Header in Procedure Division 5-2 

Linkage Section 15-1 

Names 5-2 

Report Section 6-2 

Secondary-Storage Section 4-3 

Segmented program 8-1 

Working-Storage Section 4-2 
SECURITY paragraph 2-1 
Segmentation 

GO TO statement 5-12 

Linkage Section 15-1 

Numbers F-2 

Procedure Division 5-1 

Program 8-1 

SEGMENT-LIMIT clause 8-2 
Segmentation Facility 8-1 
I SELECT clause 3-16, 16-1 
SEND statement 14-11 
Sentence 5-2, C-9 
SEPARATE 

MOVE statement 5-18 

SEPARATE 3-5, 4-23 
Separator 

Pseudo-text 9-1, 9-2 

Punctuation characters 1-4 
Sequence 

Collating (see Collating) 

Number 1-2, 12-6 

Sort initial 7-1 
Sequential access C-9 
Sequential file 

Definition C-9 

Organization 3-6 

READ statement 5-26 

Subschema interface 16-1 
SET 

ALPHABET clause 3-3 

COLLATING SEQUENCE clause 3-2 

SEARCH statement 5-29 

SET statement 5-30 
Shared memory area 8-5 
Short PRU C-9 
SI format tape 

Block type 4-4 

RECORDING MODE clause 4-11 
Sign 

Condition 1-17 

Condition expression 1-17 

Overpunch 4-24 

Relation condition 1-15 

Separate in expression 1-9 

SIGN clause 3-5, 4-23 

SIGN CONTROL clause 3-5, 4-23 
Size 

Record 4-8 
SIZE ERROR 

ADD statement 5-6 
COMPUTE statement 5-9 
DIVIDE statement 5-11 
MULTIPLY statement 5-21 
Phrase 5-6 

SUBTRACT statement 5-36 
Slack characters 4-24 
Snap dump 10-3 



Sort 

Central memory block 7-1 

Collating sequence 3-2 

Facility 7-1 

Initial sequence 7-1 

Segments 8-3 

Shared memory 3-20 

SORT statement 7-2, F-2 

Subschema reference 16-2 
Sort /Merge 

Direct calls 11-16 

File description (see SD entry) 

Interface 11-16 

Segmentation 8-3 
Source 

Definition C-9 

Program (see Program) 

SOURCE clause 6-8 
SOURCE-COMPUTER paragraph 3-1 
Space 

(Also see Blank) 

Arithmetic expression 1-10 

INITIALIZE statement 5-14 

Nonnumeric literal 1-9 

Pseudo-text 9-1, 9-2 

Separator 1-6 
Sparse key 3-12, C-9 
Special 

Character words 1-7 

Registers 

Arithmetic expression 1-10 
DEBUG-ITEM 1-9, 10-6 
Definition 1-7 
HASHED- VALUE 1-7, 5-39 
LINAGE-COUNTER 1-7, 4-8 
LINE-COUNTER 1-7, 6-2 
PAGE-COUNTER 1-7, 6-2 
SPECIAL-NAMES paragraph 

ACCEPT statement 5-4 

Carriage control 3-2 

DISPLAY statement 5-10 

Skeleton 3-2 

Subschema Interface 16-1 

WRITE statement 5-40 
Standard 

ALPHABET clause 3-3 

Character set A-2 

LABEL RECORDS clause 4-6 
Start 

READ statement 5-26 

Repeating group alternate key 3-11 

START statement 5-33 

USE FOR DEBUGGING statement 10-5 
Statement 5-2, C-9 

(Also see Control statement) 
Static program 8-3, C-10 
STATUS KEY 14-4, 14-6 
STOP statement 5-34 
STRING statement 5-35, F-2 
Subcompile 12-7 
Subprogram 

CALL statement 8-4 

Common-Storage Section 15-1 

Compile parameter 12-7 

Dynamic 8-3 

ENTER statement 8-2, 15-3 

External files 15-2 
Linkage Section 15-1 

Procedure Division header 8-2 

Segmented 8-1 

Static 8-3 

Subschema Interface 16-1 
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Subqueue C-10 
Subschema 

Definition C-10 

Facility 16-1 

File 16-4 

Parameter on compiler call 12-3 

Subprogram Interface 16-1, 16-4 

SUB- SCHEMA clause 16-1 
Subscript 

Bounds checking 12-3 

CONTROL clause 6-4 

Definition 1-20 

LABEL RECORDS clause 4-7 

MOVE statement 5-17 

OCCURS clause 4-14 

READ statement 5-26 

SEARCH statement 5-29 

Secondary-Storage Section items 4-3 

SET statement 5-32 

UNSTRING statement 5-37 
Subtotaling 6-9 
Subtract 

COMPUTE statement 5-8 

Operator 1-10 

SUBTRACT statement 5-36 
SUM clause 6-9 
Sum counter C-10 
Summary 

Diagnostics 12-11 

Language E-1 
SUPERVISOR clause 

OBJECT-COMPUTER paragraph 3-1 

SOURCE-COMPUTER paragraph 3-1 

Usage F-1 
SUPPRESS statement 6-12 
Switch 

Debugging use of Switch 6 10-5 

Definition C-10 

External 1-15, 3-5 

Internal 1-15, 3-5 
I RERUN clause 3-19 

SET statement 5-30 

Status condition 1-15 

STOP statement 5-35 

SWITCH-n clause 3-5 
Symbolic 

Name C-10 

Queues 14-2, 14-3 

SYMBOLIC DESTINATION clause 14-6 

Symbolic name C-10 

SYMBOLIC SOURCE clause 14-2, 14-3 
Synchronized (SYNC) 

ANSI=77LEFT parameter of compiler call 

SYNCHRONIZED clause 4-24 

USAGE clause 4-25 

VALUE clause 4-27 
Syntax 

Check parameter compiler call 12-7 

Rules 1-4 
System-logical-record C-10 
System-name 1-6 



Diagnostics B-2 
Type record 4-9, 5-26 
Table 

Definition 4-14, C-10 
SEARCH statement 5-28 
Subscripting 1-20 



12-2 



TAF 



Interface 11-20 
Parameter 12-7 



TALLYING phrase 

INSPECT statement 5-14 

UNSTRING statement 5-37 
Tape 

Block type 4-4 

CLOSE statement 5-7 

CODE-SET clause 4-5 

LABEL RECORDS clause 4-6 

RECORDING MODE clause 4-11 
Terminal 

ACCEPT statement 5-4 

Carriage control 5-10 

DISPLAY statement 5-9 

STOP statement 5-35 

TERMINAL implementor-name 3-2 
TERMINAL-C 5-10 
TERMINATE statement 6-12 
Termination Dump 

Facility 10-2, 12-7 

Parameter on compiler call 12-7 
TERMINL 3-2 
TEST AFTER phrase 5-24 
TEST BEFORE phrase 5-24 
TEXT LENGTH clause 14-6 
Text-name 

Library 9-1 

Qualification 1-20 
Text-word 9-1, 9-4, C-10 
THROUGH (THRU) 

IffiRGE statement 7-4 

PERFORM statement 5-23 

RENAMES clause 4-23 

SORT statement 7-3 

VALUE clause 4-27 
Time 

Paragraph execution 10-1 

TIME 5-5, 12-12 
TIMES 5-23 
TOP 4-8 

TRAILING 3-5, 4-23 
Transaction 

CDCS C-10 

Processing C-11 

TAF C-10 
Transaction Facility (TAF) 

Interface 11-20 

TAF parameter of compiler call 12-7 
Trap 10-8, C-U 
TRUE 5-32 
Truncation 5-17 
Truth value 1-18 
Type 

Block 4-5 

Record 4-9. F-1 

TYPE clause 6-10 



Unary 

Arithmetic operator 1-10 
Boolean operator 1-13 

UNEQUAL 1-15 

UNI 

ALPHABET clause 3-3 
CODE-SET clause 4-5 
Collating sequence A-7 
SET statement 5-32 

UNIVAC 1100 series 

ALPHABET clause 3-3 
SET statement 5-32 

Unload file 5-8 

Unpack COMP-1 items 12-8 

UNSTRING statement 5-37, F-2 

UNTIL phrase 5-23 

UP BY 5-32 
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Update 

COPY statement 9-1 

Definition of the product Update C-U 
File parameter on compiler call 12-7 
UPON phrase 

DISPLAY statement 5-10 
SUM clause 6-9 
Usage 

USAGE clause 

Class condition 1-15 
INSPECT statement 5-14 
Relation condition 1-15 
SIGN clause 4-23 
STRING statement 5-35 
UNSTRING statement 5-37 
USAGE clause 4-25 
USAGE IS INDEX clause 

CORRESPONDING phrase 5-20 
Linkage Section 15-1 
MOVE statement 5-17 
SEARCH statement 5-29 
USE 

Clause 3-17 
Declarative 5-38 
DELETE statement 5-9 
Invalid key condition 5-39 
MERGE statement 7-4 
READ statement 5-26 
REWRITE statement 5-28 
Segments 8-1 

USE AFTER STANDARD ERROR declarative 5-38 
USE BEFORE REPORTING declarative 6-13 
USE FOR ACCESS CONTROL declarative 16-3 
USE FOR DEADLOCK declarative 16-3 
USE FOR DEBUGGING declarative 10-5 
USE FOR HASHING declarative 5-38 
I USE WHEN phrase 3-12 
WRITE statement 5-39 
User-defined word 

Definition 1-6, C-U 
Qualification 1-19 
USING phrase 

CALL statement 15-2 
ENTER statement 15-3 
Linkage Section 15-1 
MEiiCE statement 7-5 
Procedure Division header 15-2 
SORT statement 7-3 
Utilities 

By file organizations 3-7 
ENTER statement 15-3 



V picture symbol 4-17 
Value 

VALUE 

Common-Storage Section 15-1 
Linkage Section 15-1 
Subprogram call 15-2 
VALUE clause 4-27, 6-11 
Working-Storage Section 4-2 
VALUE OF phrase 4-6 
Variable-occurrence data item 4-15, C-11 
VARYING phrase 

PERFORM statement 5-23 
SEARCH statement 5-29 
Volume (see Reel) 



W 



B-2 



Diagnostics 

Type record 

Definition C-U 
Use 4-4, 4-9, 5-22, 5- 
WHEN phrase 5-29 



•28 



WITH NO ADVANCING phrase 

ACCEPT statement 5-4 

DISPLAY statement 5-9 
WITH TEST phrase 5-23 
Word-address file 

Definition C-11 

Key 3-10, 3-17 

Organization 3-10 

READ statement 5-26 

Record size 4-8 

WORD-ADDRESS KEY clause 3-17 

WRITE statement 5-39 
Words 

Reserved 1-6, D-1 

System-names 1-6 

User-defined 1-6 
Working-Storage Section 4-2 
Write 

(Also see Carriage control) 

OPEN statement 5-21 

Secondary-Storage Section items 4-3 

USE FOR DEBUGGINCJ 10-6 

WRITE statement 5-39 



Parameter of compiler call 9-1, 12-8 
Picture symbol 4-18 



Picture symbol 4-18 

Type record 4-10, 5-22, 6-2 

Zero 

Figurative constant 1-7 
INITIALIZE statement 5-14 
Replacement 4-21 
Sign condition 1-17 
Suppression 4-21, 12-5 

Zero-byte terminator C-U 

Zero-length PRU C-U 



picture symbol 4-18, 

1 picture symbol 4-18 
8-Bit-Subroutines interface U-17 
9 picture symbol 4-18 

66 level entry 

Common-Storage Section 15-1 

Data Description entry 4-12 

INITIALIZE statement 5-14 

Linkage Section 15-1 

MOVE statement 5-17 

OCCURS clause 4-14 

Working-Storage Section 
77 level entry 

ANSI parameter 12-2 

Common-Storage Section 

Data Description entry 

JUSTIFIED clause 4-14 

Linkage Section 15-1 

OCCURS clause 4-14 

Usage F-2 

Working-Storage Section 
88 level entry 

Common-Storage Section 

Data-Description entry 

Linkage Section 15-1 

MOVE statement 5-17 

OCCURS clause 4-14 

Relation 1-16 

UNSTRING statement 5-37 

VALUE clause 4-27 

Working-Storage Section 4-2 



4-2 



15-1 
4-12 



4-2 

15-1 
4-13 
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COMPUTE statement 5-9 
Relation 1-14, 1-15 
Pseudo-text delimiter 



1-6, 9-1, 9-4 



Operator I-IO 
Picture symbol 



4-18 



Continuation line 1-2 
Operator 1-10 
Picture symbol 4-18 

Comment line 1-3 

DECK 9-2, 12-8 

Execution parameter 12-12 

Operator 1-10 

Picture symbol 4-18 

Update directives 9-2 



** operator 1-10 

# picture symbol 4-16 

$ 

IML statement 11-7 
Picture symbol 4-16 

DECIMAL-POINT clause 3-4 
Picture symbol 4-18 

> 

DECIMAL-POINT clause 3-4 
Picture symbol 4-18 

/ 

Comment line 1-3 
Operator 1-10 
Picture symbol 4-18 
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